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.