program r8_91;
uses crt;
const r=3;m=4;
var a:array[1..r+1,1..m] of integer;
      x:array[1..m] of integer;
      s:real;
      k,i,j,n,min:integer;
BEGIN
clrscr;
randomize;
n:=r;
for i:=1 to n do begin
  for j:=1 to m do begin
    a[i,j]:=random(23);
    write(a[i,j]:4);
  end;
writeln;
end;
b:=0;
min:=a[1,1];
for i:=1 to n do
 for j:=1 to m do
   if a[i,j]< min then
    begin
    min:=a[i,j];
    k:=i;
   end;
writeln(min:4,k:4);
for j:=1 to m do
x[j]:=a[1,j];
for i:=n downto k do
 for j:=1 to m do
  a[i+1,j]:=a[i,j];
for j:=1 to m do
  a[k,j]:=x[j];
n:=n+1;
writeln('new');
for i:=1 to n do begin
   for j:=1 to m do begin
   write(a[i,j]:4);
 end;
writeln;
end;
END.