Pascal. Сортировка двумерного массива

[raf98]

Помогите пожалуйста с заданием.
Задан двумерный массив A[5,10].
В строке с номером n(число ввести с клавиатуры) расположить по возрастанию четные элементы, стоящие на четных местах.

[malinoff]

var
a : array [0..4,0..9] of integer;
i,n,tmp : integer;
Begin
;заполнение матрицы
 write('Введите n: ');
 readln(n);
 i:=1;
 repeat
  if a[n][i] > a[n][i+2] then
  begin
   tmp := a[n][i+2];
   a[n][i+2] := a[n][i];
   a[n][i] := tmp;
  end
  i:= i + 2;
 until i = 7;
End.

N-я строка проходит только одну итерацию упорядочивания, то есть при проходе, скажем, по массиву 9 8 7 6 5 4 3 2 1 0 программа выведет массив 9 6 7 4 5 2 3 0 1 8
Нет проверки четности числа.
Подумайте, как переписать код, чтобы упорядочивалась вся строка + проверялась четность.