Матрица. Вывести на экран строку, сумма элементов которой максимальна

program qwe;
uses crt;
var
mas:array [1..8,1..5] of integer;
i,j,max,k:integer;
begin
Randomize;
for i:=1 to 8 do
begin
for j:=1 to 5 do
begin
mas[i,j]:=random(20)-10;
write(mas[i,j],' ')
end;
writeln();
end;
    max:=mas[1,1];
    for i:=1 to 8 do
        for j:=1 to 5 do
        begin
        if max<mas[i,j] then
           begin
           max:=mas[i,j];
           k:=i;
           end;
        end;
            write('Строка ',k,'=');
            for j:=1 to 5 do
            write(mas[k,j],' ');
        
end.

var mas: array [1..8,1..5] of integer;
   i, j, max, k, s:integer;
begin
 Randomize;
 writeln('** Исходный массив **');
 for i:=1 to 8 do
  begin
   for j:=1 to 5 do
    begin
     mas[i,j]:=random(21)-10;
     write(mas[i,j]:4);
    end;
   writeln; 
  end;
 for i:=1 to 8 do
  begin
   s:= 0;
   for j:=1 to 5 do
    s:= s + mas[i, j];
   if (i=1) or (s>max)
    then
     begin
      k:= i;
      max:= s;
     end;
  end;   
  write('Строка ', k, ': ');
  for j:=1 to 5 do
   write(mas[k,j]:4);
  writeln;
end.