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.