Найти только те элементы двух массивов, значения которых совпадают

 program ggg;
  uses crt;
    var
      a,b:array [1..100] of integer;
      l,k,i,n:integer;
begin
 clrscr;
 randomize;
  for i:= 1 to 20 do
   begin
    k:=random(5);
    a[i]:=k;
    k:=random(5);
    b[i]:=k;
   end;
  for i:=1 to 20 do
    for k:= 1 to 20 do
     begin
       write('nomer 1:');
       writeln(i);
       write('nomer 2:');
       write(k);
       writeln('');
       write('heslo');
       writeln(a[i]); 
       end;
     end;   
 
end.

procedure gen_prn(c: char; var x: array of integer);
var i: integer;
begin
  writeln('Массив ', c, ':');
  for i := 0 to high(x) do
    begin
      x[i] := 1 + random(5);
      write(x[i]:2)
    end;
  writeln
end;
 
const n = 20;
var a, b: array[1..n] of integer;
    i: integer;
    found: boolean;
begin
  randomize;
  gen_prn('A', a);
  gen_prn('B', b);
  found := false;
  for i := 1 to n do
    if a[i] = b[i]
      then begin
        writeln('Номер: ', i, ' значение: ', a[i]);
        found := true
      end;
  if not found then writeln('Совпадений нет');
  readln
end.