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

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=10; n=15;
  var
  w:array[1..m,1..n] of integer;
  sum:array[1..n] of integer;
  min:array[1..m] of integer;
  i,j:integer;
 
begin
  randomize;
  for i:=1 to m do
  begin
  for j:=1 to n do
  begin
   w[i,j]:=random(100); write(w[i,j]:5);
   if (j=1) or (min[i]>w[i,j]) then min[i]:=w[i,j];
  end;
  writeln;
  end;
  for j:=1 to n do
  for i:=1 to m do
  sum[j]:=sum[j]+w[i,j];
  writeln;
  writeln('sum .....');
  for j:=1 to n do write(sum[j]:5);
  writeln;
  writeln('min .....');
  for i:=1 to m do write(min[i]:5);
  readln;
end.