Урок 15 (Решенная задача номер 17)

Урок 15 (Решенная задача номер 17)

17) У вас есть два массива целых чисел по 10 элементов в каждом.
Выведите на экран все числа из первого массива, которые не содержаться во втором.

type my_type = array[1..10] of integer;

var
  array_one, array_second: my_type;

procedure Conclusion(arr_1, arr_2:my_type);
var i, g : integer;
    Flag : boolean;
begin
  Flag := true;
  for i := 1 to 10 do
  begin
    for g := 1 to 10 do
      if (arr_1[i] = arr_2[g]) then
      begin
        Flag := false;
        break;
      end;
    if (Flag = true) then
      write(arr_1[i], ' ')
    else Flag := true;
  end;
end;

procedure Randoming(arr_1:my_type; arr_2:my_type);

var g, c: integer;

begin
  randomize();
  for g := 1 to 10 do
  begin
    arr_1[g] := random(15);
    arr_2[g] := random(15);
  end;
  Conclusion(arr_1, arr_2);
end;

begin
  Randoming(array_one, array_second);
end.