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

uses crt;
var A:array[1..100, 1..100] of integer;
I, J, G, max, H, n, m:integer;
begin
randomize;
n:=7;
m:=6;
max:=-1;
 
for I:=1 to N do begin
for J:=1 to M do
A[I,J]:=random(5)+1;
end;
 
for I:=1 to N do begin
for J:=1 to M do
write(a[i,j]:5);
writeln;
end;
 
for I:=1 to N do begin
for J:=1 to M do begin
if (A[i,j])> max then begin
max:=A[i,j];
G:=I;
H:=J;
end;
end;
end;
writeln('Столбец - ',G,' Cтрока - ',H);
end.

uses crt;
const n=7;
      m=6;
var A:array[1..n, 1..m] of integer;
    I, J, imx, jmx, s: integer;
begin
randomize;
for I:=1 to N do
 begin
  for J:=1 to M do
   begin
    A[I,J]:=1+random(25);
    write(a[i,j]:3);
    if(i=1)and(j=1)then
     begin
      imx:=1;
      jmx:=1
     end
    else if a[i,j]>a[imx,jmx] then
     begin
      imx:=i;
      jmx:=j
     end;
   end;
  writeln
 end;
writeln('Максимальный элемент=',a[imx,jmx],' в строке ',imx,' в столбце ',jmx);
s:=0;
for j:=1 to m do
s:=s+a[imx,j];
writeln('Сумма в строке ',imx,'=',s);
s:=0;
for i:=1 to n do
s:=s+a[i,jmx];
writeln('Сумма в столбце ',jmx,'=',s);
end.

const
  m=7; n=6; LIM=100; W=4;
var
  a: array [1..m,1..n] of Integer;
  i, j, imx, jmx, s: Integer;
begin
  Randomize;
  imx:=1; jmx:=1; {s:=0;}
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=Random(LIM); Write(a[i,j]:W);
      if a[i,j]>a[imx,jmx] then begin
        imx:=i; jmx:=j;
      end;
    end; WriteLn;
  end;
  for i:=1 to m do s:=s+a[i,jmx];
  for j:=1 to n do s:=s+a[imx,j];
  WriteLn('Сумма элементов столбца ',j,' и строки ',i,' равна ',s);
end.