Дан массив из целых чисел. Удалить из него все четные элементы, стоящие на нечетных местах

const n = 5;
var a: array [1..n] of integer;
i,k,m:integer;
begin
  for i:=1 to n do
    begin
    a[i]:= random(50);
    write(a[i]:4);
    end;
i:=0;
m:=n;
while i <= m do
begin
  if (i mod 2 <> 0)and (a[i] mod 2 = 0) then
  begin
  for k:= i to m - 1 do
    a[k]:= a[k+1];
    m := m-1;
    end
    else
      i:= i+ 1;
      end;
      writeln;
      for i:= 1 to m do
      begin
        write (a[i]:4);
      end;  
end.

var
  a: array of integer;
  elms: integer;
 
procedure ClearArr(var a: array of integer);
begin
  
  for var i := 0 to a.Length - 1 do
    if (a[i] = 0) then for var j := i to a.Length - 2 do
      begin
        a[j] := a[j] - a[j + 1];
        a[j + 1] += a[j];
        a[j] := a[j + 1] - a[j];
      end;
  
end;
 
procedure Del(var a: array of integer);
begin
  //Кол-во элементов имеющих значение 0
  var kol: integer;
  
  //Присваиваем значение 0 тем элементам которые являются четными и стоят на нечетных местах
  for var i := 0 to a.Length - 1 do
    if (i mod 2 = 1) then if (a[i] mod 2 = 0) then begin a[i] := 0; Inc(kol); end;
  //Переносим все нули в правый край массива
  ClearArr(a);
  //Уменьшаем размер массива на kol элементов
  SetLength(a, a.Length - kol);
end;
 
begin
  
  write('Введите кол-во элементов - '); readln(elms);
  SetLength(a, elms);
  for var i := 0 to a.Length - 1 do read(a[i]);
  Del(a);
  write(a);
end.