Заполните случайными числами...

Заполните случайными числами в диапазоне от 1 до 5 два массива: A[1:20] и B[1:20]. Найдите и выведите на экран только те элементы этих массивов,значения которых совпадают. Например, если A[2]=B[2]=4, то на экран надо вывести: Номер: 2 значение: 4 Если совпадений нет, то вывести сообщение об этом. Заранее Спасибо.

 

const n = 20;
var
  a, b: array[1..n] of integer;
  i, count: integer;
begin
  for i := 1 to n do begin
    a := 1 + random(5);
    b := 1 + random(5);
    if(a = b) then begin
      writeln('Номер: ', i, ' Значение: ', a);
      inc(count);
    end;
  end;
  if(count = 0) then writeln('Совпадений нет');
end.