program matrix;
var mat:array[1..3,1..5] of integer;
result:array[1..2,1..4] of integer;
x,y,i,o,rx,ry:integer;

procedure getminelement(width,height:integer;x,y:integer);
var a,b,minelement:integer;
begin
minelement:=mat[1,1];

for a := 1 to width do begin
  for b := 1 to height do begin
    if mat[a,b]<minelement then begin
    minelement:=mat[a,b];
    x:=a;
    y:=b;
    end;
  end;
end;
end;

begin
randomize;
for i := 1 to 4 - 1 do  begin
  for o := 1 to 6 - 1 do
    mat[o,i]:=random(100);
end;
getminelement(5,3,x,y);
i:=1;
o:=1;
rx:=1;
ry:=1;
while i<3 do begin
   while o<5 do begin
     if i=y then ry:=ry+1;
     if o=x then rx:=rx+1;
     result[rx,ry]:=mat[o,i];
     inc(o);
   end;
  inc(i);
end;

end.

while i<3 do begin
   while o<5 do begin
     if i=y then ry:=ry+1;
     if o=x then rx:=rx+1;
     result[rx,ry]:=mat[o,i];
     inc(o);
   end;
  inc(i);
end;