Вставить первую строку после строки, в которой находится первый встреченный минимальный элемент

Type mas=array[1..10,1..10] of integer;
Var A:mas;
    n,m,i,j,imin,jmin:byte;
Procedure Vvod(Var A:mas;n,m:byte);
Var i,j:byte;
Begin
    For i:=1 to n do
     For j:=1 to m do
      A[i,j]:=random(31)-15;
End;
Procedure Vivod(A:mas;n,m:byte);
Var i,j:byte;
Begin
    For i:=1 to n do
    Begin
      For j:=1 to m do
       write(A[i,j]:4);
      writeln;
    End;
End;
Procedure Obrabotka(Var A:mas;n,m,imin:byte);
Var i,j:byte;
    B:array[1..10] of integer;//для запоминания элементов первой строки
Begin
    if imin>1 then
    Begin
      For j:=1 to m do
       B[j]:=A[1,j];
      For i:=2 to imin do
       For j:=1 to m do
        A[i-1,j]:=A[i,j];
      For j:=1 to m do
       A[imin,j]:=B[j];
    End;
End;
Begin
    write('Введите 1<=N<=10: ');readln(n);
    write('Введите 1<=M<=10: ');readln(m);
    Vvod(A,n,m);
    Vivod(A,n,m);
    imin:=1;jmin:=1;
    For i:=1 to n do
     For j:=1 to m do
      if A[i,j]<A[imin,jmin] then 
      Begin
        imin:=i;
        jmin:=j;
      End;
    writeln('Min = ',A[imin,jmin],' находится в строке ',imin);
    Obrabotka(A,n,m,imin);
    writeln('Преобразованный');
    Vivod(A,n,m);
End.

Type mas=array[1..11,1..10] of integer;
Var A:mas;
    n,m,i,j,imin,jmin:byte;
Procedure Vvod(Var A:mas;n,m:byte);
Var i,j:byte;
Begin
    For i:=1 to n do
     For j:=1 to m do
      A[i,j]:=random(31)-15;
End;
Procedure Vivod(A:mas;n,m:byte);
Var i,j:byte;
Begin
    For i:=1 to n do
    Begin
      For j:=1 to m do
       write(A[i,j]:4);
      writeln;
    End;
End;
Procedure Obrabotka(Var A:mas;n,m,imin:byte);
Var i,j:byte;
    t:integer;
Begin
    For i:=n downto imin do
     For j:=1 to m do
      A[i+1,j]:=A[i,j];
    For j:=1 to m do
     A[imin+1,j]:=A[1,j];
End;
Begin
    write('Введите 1<=N<=10: ');readln(n);
    write('Введите 1<=M<=10: ');readln(m);
    Vvod(A,n,m);
    Vivod(A,n,m);
    imin:=1;jmin:=1;
    For i:=1 to n do
     For j:=1 to m do
      if A[i,j]<A[imin,jmin] then 
      Begin
        imin:=i;
        jmin:=j;
      End;
    writeln('Min = ',A[imin,jmin],' находится в строке ',imin);
    Obrabotka(A,n,m,imin);
    writeln('Преобразованный');
    Vivod(A,n+1,m);
End.