Сортировка выбором четных строк двумерного массива

Const nmax=20;
Var A:array[1..nmax,1..nmax] of integer;
    i,j,k,n,m:integer;
    jmin,t:integer;
Begin
    Randomize;
    Repeat
     write('Введите количество строк: ');
     readln(n);
    Until (n>0)and(n<=nmax);
    Repeat
     write('Введите количество столбцов: ');
     readln(m);
    Until (m>0)and(m<=nmax);
    writeln('Исходная матрица');
    For i:=1 to n do
    Begin
      For j:=1 to m do
      Begin
        A[i,j]:=-15+random(31);
        write(A[i,j]:4);
      End;
      writeln;
    End;
    i:=2;
    While i<=n do
    Begin
      For k:=1 to m do
      Begin
        jmin:=k;
        For j:=k+1 to m do
         if A[i,j]<A[i,jmin] then jmin:=j;
        if jmin<>k then
        Begin
          t:=A[i,jmin];
          A[i,jmin]:=A[i,k];
          A[i,k]:=t;
        End;
      End;
      i:=i+2;
    End;
    writeln('Преобразованная матрица');
    For i:=1 to n do
    Begin
      For j:=1 to m do
       write(A[i,j]:4);
      writeln;
    End;
    readln;
End.