Даны два одномерных массива из целых чисел. Найти элементы, которые есть в первом массиве, и которых нет во втором массиве — Pascal(Паскаль)

var
  a, b: array [1 .. 100] of integer;
  n1, n2, i, j, f: integer;

begin
  randomize;
  writeln('vvedite kolichestvo elementov 1 massiva');
  readln(n1);
  for i := 1 to n1 do
    a[i] := random(20);
  writeln('massiv 1');
  for i := 1 to n1 do
    write(a[i], ' ');
  writeln;
  writeln('vvedite kolichestvo elementov 2 massiva');
  readln(n2);
  for i := 1 to n2 do
    b[i] := random(20);
  writeln('massiv 2');
  for i := 1 to n2 do
    write(b[i], ' ');
  writeln;
  writeln('elementy:');
  for i := 1 to n1 do
  begin
    f := 0;
    for j := 1 to n2 do
      if a[i] = b[j] then
        f := 1;
    if f = 0 then
      write(a[i], ' ');
  end;
  readln;

end.