Даны два целочисленных массива K(m) и L(n). Найти элементы массива K, не имеющие себе равных в массиве L — Pascal(Паскаль)

uses crt;
var K,L: array[1..10] of integer;
    i,j,p: byte;
    f:boolean;
begin
randomize;
writeln('Массив K:');
for i:=1 to 10 do
 begin
  K[i]:=random(10);
  write(K[i],' ');
 end;
writeln;
writeln('Массив L:');
for i:=1 to 10 do
 begin
  L[i]:=random(10);
  write(L[i],' ');
 end;
writeln;
writeln('Элементы массива K, которых нет в массиве L:');
p:=0;
for i:=1 to 10 do
 begin
  f:=true;
  j:=1;
  while(j<=10) and f do
  if K[i]=L[j] then f:=false
  else j:=j+1;
  if f then
    begin
     p:=1;
     write(K[i],' ');
    end;
 end;
 if p=0 then write('Таких элементов нет!');
end.