Даны массивы x[30], y[30]. Определить сумму и количество элементов массива x, которых нет в y — Pascal(Паскаль)

var
x,y:array [1..30] of integer;
s,k,i,j:integer;
begin
for i:=1 to 30 do
  begin
    x[i]:=random(40);
    write(' ',x[i]);
  end;
writeln();

for i:=1 to 30 do
  begin
    y[i]:=random(40);
    write(' ',y[i]);
  end;
writeln();

s:=0;k:=0;
for i:=1 to 30 do
 begin
   k:=0;
   for j:=1 to 30 do
   if x[i]=y[j] then k:=1;
   if k=0 then
    begin
     s:=s+x[i];
     k:=k+1;
    end;
  end;
  
  writeln('summa ', s);
  writeln('kolvo ', k);

end.