Задан массив А 5Х5. Заполнить его случайными числами. Вывести на экран столбец массива, который имеет наибольшее произведение элементов — Pascal(Паскаль)

var
  a: array [1..5, 1..5] of integer;
  b: array [1..5] of integer;
  j, i, jmax: integer;

begin
  randomize;
  write('исходный массив: ');
  writeln;  
  for i := 1 to 5 do 
  begin
    for j := 1 to 5 do 
    begin
      a[i, j] := -5 + random(20);
      write(a[i, j]:5);
    end;
    writeln;
  end;
  
  jmax := 1;
  for i := 1 to 5 do 
  begin
    b[j] := 1; //присваивать первоначальное значение можно прям в цикле, а не создавать еще один
    for j := 1 to 5 do
      b[j] := b[j] * a[i, j];
    if b[j] > b[jmax] then jmax := j;
  end;  
  write('номер искомого столбца:', jmax);
end.