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

program Lr8_2;
var 
a: array[1..7,1..5] of integer; 
u: array[1..7] of integer; 
i,j: integer; 
max,s :integer;
begin
for i:=1 to 7 do begin
for j:=1 to 5 do begin
a[i,j]:=random(10);
write(a[i,j], ' ');
end; writeln;
end;
s:=0;
  for i:=1 to 7 do begin
max:=a[i,1]; 
u[i]:=1;
  for j:=1 to 5 do
if a[i,j] > max then begin max:=a[i,j]; u[i]:=j; end;
s:=s+max;
end; writeln;
writeln('index max elementiv');
for i:=1 to 7 do
writeln('A[',i,',',u[i],']', ' ');
writeln;
writeln('syma=', s);
end.

program Lr8_2;
uses
  Arrays;
 
var
  a: array[,] of integer;
  u: array of integer;
  i, j: integer; 
  max, s: integer;
  m, n: integer;
 
begin
  write('n = '); readln(n);
  write('m = '); readln(m);
  a := Arrays.CreateRandomIntegerMatrix(n, m, 0, 9);
  a.Writeln(' ');
  u := Arrays.CreateRandomIntegerArray(n);
  s := 0;
  for i := 0 to n - 1 do 
  begin
    max := a[i, 1]; 
    u[i] := 1;
    for j := 0 to m - 1 do
      if a[i, j] > max then begin max := a[i, j]; u[i] := j; end;
    s := s + max;
  end; writeln;
  writeln('index max elementiv');
  for i := 0 to n - 1 do
    writeln('A[', i, ',', u[i], ']', ' ');
  writeln;
  writeln('syma=', s);
end.