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

program Project1;
 
var
  a1,a2: array[1..50] of integer; { Переменная для хранения массива.}
  n1, n2: integer; { Переменная для хранения количества элементов массива.}
  i,j: integer; { Вспомогательная переменная для организации цикла.}
  mindiff: integer; { Переменная для хранения значения разницы элементов. }
  b: integer; { Переменная для хранения значения заданного числа}
  p: integer; { Промежуточная переменная для хранения модуля разницы произведения чисел}
  ind1, ind2: integer; { Переменные для хранения индексов элементов среди которых ведется поиск. }
begin
  write('Введите количество элементов последовательности a1: ');
  Readln(n1);
  for i:= 1 to n1 do { Ввод значений элементов вручную.}
    begin
      write('Введите значение элемента ',i,': ');
      Readln(a1[i]);
    end;
  write('Введите количество элементов последовательности a2: ');
  Readln(n2);
  for i:= 1 to n2 do { Ввод значений элементов вручную. }
    begin
      write('Введите значение элемента ',i,': ');
      Readln(a2[i]);
    end;
  writeln('Последовательность a1:');
  for i:= 1 to n1 do { Вывод массива в консоль.}
  begin
    write(a1[i]:4);
    if i mod 10 = 0 then
      writeln;
  end;
  writeln;
  writeln('Последовательность a2:');
  for i:= 1 to n2 do { Вывод массива в консоль.}
  begin
    write(a2[i]:4);
    if i mod 10 = 0 then
      writeln;
  end;
  writeln;
  write('Введите значение числа b: ');
  Readln(b);
  mindiff:= abs(b - a1[1]*a2[1]);
  ind1:= 1;
  ind2:= 1;
  for i:= 1 to n1 do
    for j:= 1 to n2 do
      begin
        p:= abs(b - a1[i]*a2[j]);
        { Условие для поиска произведения элементов с
          наименьшей разницей с заданным числом по модулю.}
        if p < mindiff then
          begin
            mindiff:= p;
            ind1:= i;
            ind2:= j;
          end;
    end;
  writeln;
  writeln('Произведение чисел, максимально близкое к заданному числу дают элементы  последовательности a1[',ind1,'] и a2[',ind2,'].');
  Readln;
end.