заполнить три массива , сравнить их и вывести одинаковые цифры — Pascal(Паскаль)

const
n=10;
var
i,j,k:integer;
a:array[1..n] of integer;
b:array[1..n] of integer;
c:array[1..n] of integer;

begin
for i:=1 to n do
  begin
      a[i]:=random(10);
      write(' ',a[i]:3);
  end;
writeln();
for i:=1 to n do
  begin
      b[i]:=random(10);
      write(' ',b[i]:3);
  end;
writeln();
for i:=1 to n do
  begin
      c[i]:=random(10);
      write(' ',c[i]:3);
  end;
writeln();
writeln('-------');

for i:=1 to n do
for j:=1 to n do
for k:=1 to n do
if (a[i]=b[j])and(b[j]=c[k]) then writeln(a[i]);
writeln('-------');

end.