Выяснить, есть ли среди элементов массива одинаковые числа

var
X,Y,Z:array[1..100] of integer;
n,m,k,  a,b,c,  i,j,g, sch: integer;
 
begin
{clrscr;}
sch:=0; {счетчик}
write ('Введите длинну массива X (1-99): ');
read  (n);
randomize;
          for i:=1 to n do
          begin
          X[i]:=random(9);
          end;
 
          {ввод 2ого массива}
write ('Введите длинну массива Y (1-99): ');
read  (m);
randomize;
          for j:=1 to m do
          begin
          Y[j]:=random(9);
          end;
 
          {ввод 3ого массива}
write ('Введите длинну массива Z (1-99): ');
read  (k);
randomize;
          for g:=1 to m do
          begin
          Z[g]:=random(9);
          end;
 
{---вывод массивов-----}
write('Mассив Х: ');
for i:=1 to n do
          begin
          write (X[i]);
          write (' ');
          end;
          writeln;
          
write('Mассив Y: ');
for j:=1 to m do
          begin
          write (Y[j]);
          write (' ');
          end;
          writeln;
          
write('Mассив Z: ');
for g:=1 to m do
          begin
          write (Z[g]);
          write (' ');
          end;
          writeln;
{+++++++++++++++++++++++++++++++++++++++++++=}
{проверка сходства элементов 1 и 2 массивов}
 
// <-------
 
writeln;
for i:=1 to n do
begin
     a:=X[i];
     for j:=1 to m do
 
     if (a=Y[j]) then sch:=sch+1;
 
     end;
 
     {проверка сходства элементов 1 и 3 массивов}
for i:=1 to n do
begin
     a:=X[i];
     for g:=1 to k do
     begin
     if (a=Z[g]) then sch:=sch+1;
     end;
             end;
 
{проверка сходства элементов 2 и 3 массивов}
for j:=1 to m do
begin
     b:=Y[j];
     for g:=1 to k do
     begin
     if (b=Z[g]) then sch:=sch+1;
 
     end;
end;{
          }
 
// <-------
 
     if sch=0 then writeln ('НЕТ одинаковых элемнтов!')
     else writeln ('кол-во одинаковых эл-тов= ',sch);
end.

for g:=1 to k do