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

uses CRT;
 
const N   = 20;
      n_p = N div 2;
 
var i, j : Integer;
    a    : array[1..N] of integer;
    b    : array[1..N] of Boolean;
 
begin
  ClrScr;
 
  { some initialisations }
  Randomize;
  WriteLn('BEFORE');
  for i:=1 to N do
  begin
    a[i] := random(100); { new random value at this index }
    b[i] := True;        { default flag }
    Write(a[i],' ');     { print array element to stdout}
  end;
  WriteLn;               { add <cr><lf> ascii codes to stdout }
 
  { step 1 : finding needed elements (by condition in task) }
  i :=1;
  while i<N_p do
  begin
    if (a[i] mod 2=0) then b[i] := False;
    Inc(i, 2);
  end;
 
  { step 2 : move elements by flag in b[] }
  j := 0;
  for i:=1 to N do
    if b[i] then
    begin
      Inc(j);
      a[j]:=a[i];
    end;
 
  WriteLn('AFTER');
  for i:=1 to j do
    Write(a[i],' ');     { print array element to stdout}
 
  ReadLn;  
end.

uses crt;
var a:array[1..100] of integer;
    n,i,j,k:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива от 1 до 100 n=');
readln(n);
until n in [1..100];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(20)+1;
  write(a[i]:3);
 end;
writeln;
i:=1;{начинаем с первого индекса}
k:=1;
while i<=n do{иднм пока массив не кончится}
 begin
  if(a[i] mod 2=0)then{если на .том месте стоит четное число}
   begin
    for j:=i downto 1 do{сдвигаем к нему начало массива - сдвиг вправо}
    a[j]:=a[j-1];
    k:=k+1;{считаем}
   end;
  i:=i+2;{переходим к следующему нечетному индексу}
 end;
writeln('Результат:');
for i:=k to n do{выводим без удаленных с начала элементов}
write(a[i]:3);
readln
end.