Здравствуйте, amelya.kuro!

Смотрите код:
[code lang=pascal h=200]const
n=20;
var
x,y:array[1..n]of integer;
a,b,c:integer;
begin
{создаем массив Х}
writeln('Massiv X:');
randomize;
for a:=1 to n do
begin
x[a]:=random(100);{новый элемент массива}
write(x[a]:5);{выводим его}
end;
writeln;
{создаем массив Y}
writeln('Massiv Y:');
for a:=1 to n do
begin
y[a]:=random(100);{новый элемент массива}
write(y[a]:5);{выводим его}
end;
writeln;
{считаем совпадения}
c:=0;
writeln('Result:');
for a:=1 to n do
for b:=1 to n do
if x[a]=y[b] then
begin
write(x[a]:5);{выводим совпавшее}
inc(c);{увеличиваем счетчик}
end;
writeln;
{выводим сообщение, что нет совпадений или их количество}
if c=0 then writeln('there are not identical.')
else writeln('count:=',c);
end.[/code]
Удачи!