uses crt;
const
n=10; min = -9; max = 9;
var
a:array[1..n,1..n] of integer;
i,j,sum,sum_temp,k:integer;
begin
clrscr;
randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
     for j:=1 to n do
     begin
         a[i,j]:=random(max-min+1)+min;
         write(a[i,j]:3);
     end;
     writeln;
end;
for i:=1 to n do
begin
    for j:=1 to n do
        sum_temp:=sum_temp+a[i,j];
    if i=1 then
    begin
       sum:=sum_temp;
       k:=i;
    end
    else
       if sum<sum_temp then
       begin
          sum:=sum_temp;
          k:=i;
       end;
end;
writeln('Макс строка ',k,', сумма = ',sum);
sum_temp:=0;
for j:=1 to n do
begin
    for i:=1 to n do
        sum_temp:=sum_temp+a[i,j];
    if j=1 then
    begin
       sum:=sum_temp;
       k:=j;
    end
    else
       if sum>=sum_temp then
       begin
          sum:=sum_temp;
          k:=j;
       end;
end;
writeln('Мин столбец ',k,', сумма = ',sum);
end.