program mn;
uses crt;
var a:array[1..100,1..100]of integer;
i,j,n,m,f,mm:integer;
procedure vs(var g:integer);
var k,z:integer;
begin
for k:=mm downto g+1 do
for z:=1 to n do
a[k+1,z]:=a[k,z];
for k:=1 to n do
a[g+1,k]:=0;
mm:=mm+1;
end;
BEGIN
ClrScr;
Write('N:');readln(n);
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(10);
Write(a[i,j]:4);
if a[i,j]>m
then m:=a[i,j];
end;
writeln;
end;
mm:=n;
i:=1;
while i<=mm do begin f:=0;
for j:=1 to n do
if (a[i,j]=m) then f:=1;
if f=1 then begin
vs(i);
i:=i+2; end
else i:=i+1;
end;
writeln;
for i:=1 to mm do
begin
for j:=1 to n do
Write(a[i,j]:4);
writeln;
end;
readln;
END.