var
a: array [1..10,1..10] of integer; //
x,y,m,n,u,j,i,l,k:byte; // Раздел описания переменных
Si,Sk,Sl:integer; //
begin
randomize; // Подключение рандомайзера
write('Количество строк '); readln(m); //
write('Количество столбцов '); readln(n); // Ввод необходимых данных
for x:=1 to m do {Цикл 1}
begin
for y:=1 to n do {Цикл 2}
begin
a[x,y]:=random(10);
write(a[x,y]:4);
end; {Завершение цикла 2}
writeln;
end; {Завершение цикла 1}
u:=0;
j:=1;
i:=1;
repeat {Цикл "После" 1}
u:=u+a[i,j];
j:=j+1;
until not (j<=n); {Завершения цикла "После" 1}
l:=1;
i:=2;
repeat {Цикл "После" 1}
Si:=0;
j:=1;
repeat {Цикл "После" 2}
Si:=Si+a[i,j];
j:=j+1;
until not (j<=n); {Завершение цикла "После" 2}
if (u<=Si) then else {Проверка условия}
begin
k:=i;
Sk:=u;
end;
i:=i+1;
until not (i<=m); {Завершение цикла После" 1}
a[k,i]:=a[k,l];
l:=1;
j:=2;
repeat {Цикл "После" 1}
if (a[k,j]>=a[k,l]) then else {Проверка условия}
begin
a[k,j]:=a[k,l];
l:=j;
end;
j:=j+1;
until not (j<=n); {Завершение цикла После" 1}
Sl:=0;
i:=1;
repeat {Цикл "После" 1}
Sl:=Sl+a[i,l];
i:=i+1;
until not (i<=m); {Завершение цикла После" 1}
writeln('Sk=',Sk); //
writeln('k=',k); //
writeln('l=',l); //
writeln('Sl=',Sl); // Вывод необходимых переменных
end.