Сделать программу в Pascal

У меня есть вся программа, но нужно, чтобы она сортировала не все числа столбца, а только четные, а нечетные оставляла на прежних местах
Задание:Отсортировать по возрастанию все четные числа массива с помощью метода двоичного
включения по столбцам.}
const n=3;
type
mass=array[1..n,1..n] of integer;

procedure init (var a:mass);
var
i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(100);
end;

procedure print (var a:mass);
var
i,j:integer;
begin
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
end;

procedure sort (var a:mass);
var
k,i,j,m,l,r,x:integer;
begin
for k:=1 to n do begin
for i:=2 to n do begin
x:=a[i,k]; // запомним очередной элемент
l:=1; // левая граница
r:=i; // правая граница
while lr do begin
m:=(l+r) div 2; // середина
if (a[m,k] mod 2=0) and (a[m,k]<=x) // если средний меньше текущего
then l:=m+1 // левый ставим выше среднего
else r:=m; // иначе правый в середину
end;
for j:=i downto r+1 do a[j,k]:=a[j-1,k]; // сдвигаем отсортированную часть на 1 вправо
a[r,k]:=x; // текущий ставим в позицию правого
end;
end;
end;

var m:mass;
begin
init(m);
writeln(' Исходная матрица ');
print(m);
sort(m);
writeln(' Сортировка столбцов' );
print(m);
readln;
end.