Вывести массив из чисел, которые встречаются и в массиве а, и в массиве b - Turbo Pascal

program array1;
var
a,b:array [1..5] of integer;
c:array [1..10] of integer;
i,j,k,n:integer;
t:boolean;
begin
randomize;
for i:=1 to 5 do  begin
a[i]:=random(10);
write (a[i]:4);
end;
Writeln;
Writeln('===============================');
for i:=1 to 5 do  begin
b[i]:=random(10);
write (b[i]:4);
end;
Writeln;
Writeln('===============================');
n:=0;
for I := 1 to 5  do
  for j := 1 to 5  do
    if a[i]=b[j] then
     begin
     t:=true;
     for k := 1 to N  do
       if A[I]=C[K] then t:=false;
     if t then begin n:=n+1;c[n]:=a[i];end;
      end;
      if n<>0 then
for i:=1 to n do  begin
write (c[i]:4);
end else
Writeln('nepece4eHuu HET!');
readln;
end.

for k := 1 to N  do
       if A[I]=C[K] then t:=false;
     if t then begin n:=n+1;c[n]:=a[i];end;
      end;