Программа составлена на нахождение наибольшего произведения из ряда, но выводятся одни нули

program Project124;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const
mmax=10;
nmax=12;
var
a:array[1..mmax,1..nmax]of real;
Phmax:array[1..mmax]of real;
i,j,n,m:integer;
Ph,Pmax:real;
begin
writeln('vv m,n');
readln(m, n);
writeln('Vvedite elementy');
 for i:=1 to m do begin
 for j:=1 to n do begin
 read(a[i,j]);
 readln;
 end;
 end;
  for i:=1 to m do
    pmax:=1e-20;
    ph:=1;
 for j:=1 to n do
 begin
   ph:=ph*a[i,j];
   if (ph>pmax) then begin
   pmax:=ph;
   Phmax[i]:=pmax;
 end;
 end;
 //вывод матриц
 writeln('ish matr');
  for i:=1 to m do begin
 for j:=1 to n do
 write(a[i,j]:5:2,' ':2);
  writeln('gotovaja');
  end;
   for i:=1 to m do begin
 for j:=1 to n do
   write(phmax[i]:5:2);
 end;
 readln;
 { TODO -oUser -cConsole Main : Insert code here }
end.

 //âûâîä ìàòðèö
 writeln('ish matr',' ':n*5, 'gotovaja');
  for i:=1 to m do begin
 for j:=1 to n do
 write(a[i,j]:5:2,' ':2);
 write(' | ', phmax[i]:5:2);
  writeln;
  end;
 readln;