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

[ZX Spectrum-128]

program prog2;
const
  m=10;
  n=12;
var
  a:array[1..n,1..m]of integer;
  imax,i,j,pr,max:LongInt;
begin
  randomize;
  WriteLn('Исходная матрица:');
  for i:=1 to N do
  begin
    for j:=1 to M do
    begin
      a[i,j]:=random(10)-5;
      Write(a[i,j]:2,' ')
    end;
    WriteLn
  end;
  readln;

  for i:=1 to N do
  begin
    pr:=a[i,1]; max:=a[i,1];
    write(pr:3);
    for j:=2 to M do
    begin
      pr:=pr*a[i,j];
      if pr>max then
        begin
          imax:=j;
          max:=pr;
        end;
      write(a[i,j]:3);
    end;
   writeln(' Максимальное произведение в ',i,' строке. : ',max)
  end;
  readln;
end.

[Otar4ik]

Спасибооо!!

я посмотрел где вы присвоили max,даа вот я протупил и причём сильно

Большое спасибо.