Найти произведения элементов в каждой строке и максимальные элементы в каждом столбце

Program lab5;
Var
 A: array [1..10,1..15] of real;
 i, j, m, n: integer; s, p, min, max: real;
Begin
 writeln('Введи m,n'); read(m,n);
 writeln('Введи массив A');
 for i:=1 to m do
  for j:=1 to n do
   read(A[i,j]);
 s:=0; p:=1; min:=A[1,1]; max:=A[1,1];
 for i:=1 to m do for j:=1 to n do
   begin
    s:=s+A[i,j]; p:=p*A[i,j];
    if A[i,j]<min then min:=A[i,j];
    if A[i,j]>max then max:=A[i,j];
   end;
 writeln('s=',s:10:3,'  p=',p:10:3,
  '  min=',min:10:3,'  max=',max:10:3);
End.

const m=3; n=4;
  var
  r:array[1..m,1..n] of integer;
  pr:array[1..m] of integer;
  max:array[1..n] of integer;
  i,j:integer;
 
begin
  randomize;
  for i:=1 to m do pr[i]:=1;
  for i:=1 to m do
  begin
  for j:=1 to n do
  begin
   r[i,j]:=random(9)+1; write(r[i,j]:5);
  end;
  writeln;
  end;
   for j:=1 to n do
   for i:=1 to m do
  if (i=1) or (max[j]<r[i,j]) then max[j]:=r[i,j];
  for i:=1 to m do
  for j:=1 to n do
  pr[i]:=pr[i]*r[i,j];
  writeln;
  writeln('pr .....');
  for i:=1 to m do write(pr[i]:5);
  writeln;
  writeln('max .....');
  for i:=1 to n do write(max[i]:5);
  readln;
end.