var a:array[1...100] of array[1..100] of integer;
max,i,j:integer;
begin
readln(n);
for i:=1 to n do
for j:=1 to n do
readln(a[i]);
max:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if a[i,j]>max then m:=i;
for i:=1 to m-1 do
for j:=1 to n do
writeln(a[i,j]);
for i:=1 to m+1 do
for j:=1 to n do
writeln(a[i,j]);
readln
end.
че-то я с процедурами не бум бум, как через нее сделать? намекните немного че в нее записывать, а че нет.