Максимальное из произведений.Pascal ABC.NEt

[Otar4ik]

Составить программу,которая в каждой строке матрицы H(m,n) m=10,n=12 находит максимальное из произведений. Вывести исходную матрицу и рядом с каждой строкой найденное максимальное значение произведения значения.

Вечно пишет что praktika6.pas(26) : Ошибка времени выполнения: Индекс находился вне границ массива.

и после вычисления произведения,не выводит исходную матрицу.

program prog2;
const 
m=10;
n=12;
var
  a:array[1..n,1..m]of integer;
  i,j,pr,max:LongInt;
begin
  WriteLn('Исходная матрица:');
  for i:=1 to N do
  begin
    for j:=1 to M do
    begin
      a[i,j]:=random(8)-4;
      Write(a[i,j]:2,' ')
    end;
    WriteLn
  end;
  for i:=1 to N do
  begin
    pr:=1;
    for j:=1 to M do
    begin
      if j=1 then
        max:=i;
      if a[i,j]<a[i,max] then------------------ругается здесь
        max:=j;
      pr:=pr*a[i,j];
    end;
    writeln('Исходная матрица ',a[i,j]);
    writeln('Элемент a[',i,',',max,']:=',a[i,max],' - максимальный в ',i,' строке. Произведение: ',pr)
  end
end.

[ZX Spectrum-128]

Переменной max не присвоено никакого значения. Pabc.net по умолчанию присвоил значение 0 (скорее всего), что и вызывает выход за границу массива.


Смысл задачи совершенно уходит от меня.

2 3 3
4 3 5
2 3 7
Вот для этой матрицы что означает максимальное из произведений элементов строки?

[Otar4ik]

В прикреплённом файле задание номер 6)

И вот я его пытаюсь как-то решить)

[ZX Spectrum-128]

На всякий случай уточню:
2 3 3 //ищем макс из 2 6 18
4 3 5 //4 12 60
2 3 7 //2 6 42
Так?

[Otar4ik]

Да так)по другому и я представить не могу)

[ZX Spectrum-128]

А я не понял сразу. Вы с переменной max разобрались?

[Otar4ik]

Да также выдаёт ошибку, я её в цикле объявлял и до цикла,и даже в самом начале.

[ZX Spectrum-128]

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

[Otar4ik]

Спасибо вам,а я сейчас попробую тоже дальше повозиться.
вечером тоже отпишусь получилось или нет.

[Otar4ik]

И так смотрел,и по другом,всё приходит к моей изначальной реализации(