const
  n = 10;

var
  a: array[1..n, 1..n] of integer;
  i, j, k, max, max_i: integer;
  
begin
  randomize();
  for i := 1 to n do
    for j := 1 to n do
      a[i,j] := random(1001) - 500;
  for i := 1 to n do
  begin
    k := 0;
    for j := 1 to n do
      k := k + a[i,j];
    if (i = 1) and (j = 1) then
      max := k;
    if k > max then
    begin
      max := k;
      max_i := i;
    end;
  end;
  writeln('В ',max_i,'-й строке сумма элементов максимальна.');
end.