В двумерном массиве произвольной размерности найти сумму максимальных элементов строк

Var
  a: array[1..100,1..100] of Integer;
  i,j,max,s,n: Integer;
begin
read(n);
s:=0;
 max:=-maxint;
For i:=1 to n do
  begin
For j:=1 to n do
  begin
     read(a[i,j]);
    If a[i,j]>max Then max:=a[i,j];
    end;
 inc(s,max);
 end;
writeln(s);
readln;readln
end.

Var
  a: array[1..100,1..100] of Integer;
  i,j,max,s,n: Integer;
begin
read(n);
s:=0;
 max:=-maxint;
For i:=1 to n do
  begin
For j:=1 to n do
  begin
   a[i, j]:=random (100);
   write (a[i, j]:5);
    If a[i,j]>max Then max:=a[i,j];
    end;
    writeln;
 inc(s,max);
 end;
writeln(s);
end.

uses crt;
var
   a:array[1..100,1..100]of integer;
   i,j,n,m,sum,max:integer;
begin
   clrscr;
   randomize;
   write('n=');
   read(n);
   write('m=');
   read(m);
   for i:=1 to n do
   for j:=1 to m do
    a[i,j]:=random(10);
   for i:=1 to n do
    begin
       for j:=1 to m do
        write(a[i,j],'  ');
       writeln;
    end;
   writeln;
   max:=a[1,1];
   sum:=0;
   for i:=1 to n do
    begin
       for j:=1 to m do
        if a[i,j]>max then max:=a[i,j];
       sum:=sum+max;
       max:=a[i,1];
    end;
   writeln('summa=',sum);
   readkey;
end.

 inc(s,max)

max:=a[i,1];