Отсортировать элементы одномерного массива, которые стоят на четных позициях, по возрастанию

program pr_mas;
 uses crt;
 const n=5;
   type omas= array [0..n] of integer;
   var a:omas;
       f:text;
procedure init(var z:omas);
 var i:byte;
  begin
   for i:=1 to n do
   read(f,z[i]);
  end;
procedure print(z:omas);
 var i:byte;
  begin
   for i:=1 to n do
   write(z[i]:3);
   writeln;
  end;
procedure sort(var z:omas);
 var k,j,x,i:integer;
  begin
  for i:=1 to n do
  if i mod 2 = 0 then begin
   for k:=2 to n do
    begin
      x:=a[k];
      j:=k-1;
       while (x>z[j]) and (j>=1) do
        begin
         z[j+1]:=z[j];
         dec(j);
        end;
       z[j+1]:=x;
      end;
    end;
   end;
  begin
  assign(f, 'o:\2.txt');
  reset(f);
   init(a);
   print(a);
   sort(a);
   print(a);
  close(f);
  end.

program sortirovka;
 uses crt;
 const n=5;
   type omas= array [1..n] of integer;
   var a:omas;
procedure init(var z:omas);
 var i:byte;
  begin
   for i:=1 to n do
   z[i]:=random(10);
  end;
procedure print(z:omas);
 var i:byte;
  begin
   for i:=1 to n do
   write(z[i]:3);
   writeln;
  end;
procedure sort(var z:omas);
 var k,j,x,i:integer;
  begin
   for j:=1 to n do
    for i:=1 to n-j do
     if (z[i+2]<z[i]) and (i mod 2 = 0)then
                   begin
                         x:=z[i];
                         z[i]:=z[i+2];
                         z[i]:=x;
                    end;
    end;
  begin
  randomize;
   init(a);
   print(a);
   sort(a);
   print(a);
  end.

uses crt;
const n=10;
var a:array[1..n] of integer;
    i,c,j:integer;
    
begin
for i:=1 to n do
    begin
         a[i]:=random(100);
         write(a[i]:4);
    end;
writeln;
for i:=1 to n do
    for j:=1 to n do
        if not odd(i) then if a[i]<a[j] then begin c:=a[i]; a[i]:=a[j]; a[j]:=c; end;
for i:=1 to n do
    write(a[i]:4);
end.

uses crt;
const n=10;
var a:array[1..n] of integer;
    i,c,j:integer;
    
begin
for i:=1 to n do
    begin
         a[i]:=random(100);
         write(a[i]:4);
    end;
writeln;
for i:=1 to n do
    for j:=1 to n do
        if (not odd(i)) and (not odd(j)) then if a[i]<a[j] then begin c:=a[i]; a[i]:=a[j]; a[j]:=c; end;
for i:=1 to n do
    write(a[i]:4);
end.