program r8_90;
uses crt;
const r=5;m=5;
var a:array[1..r,1..m] of integer;
x:array[1..m] of integer;
s:real;
k,i,j,n,max,v,b,f:integer;
BEGIN
clrscr;
randomize;
n:=r;f:=m;
for i:=1 to r do begin
for j:=1 to m do begin
a[i,j]:=random(23);
write(a[i,j]:4);
end;
writeln;
end;
max:=a[1,1];
for i:=1 to r do
for j:=1 to m do
if a[i,j]>max then
begin
max:=a[i,j];
k:=i;
v:=j;
end;
writeln(max:4,k:4,v:4);
n:=n-1;
for i:=k to n do
for j:=1 to m do
a[i,j]:=a[i+1,j];
f:=f-1;
for i:=1 to n do
for j:=v to f do
a[i,j]:=a[i,j+1];
writeln('new');
for i:=1 to n do begin
for j:=1 to f do begin
write(a[i,j]:4);
end;
writeln;
end;
END.