Сформировать два массива, один из компонент с четными номерами, другой с нечетными

program _array;
 
const
 N          = 20;
 
type
 TArray     = array [0..N] of integer;
 
 
var
 Mas        : TArray;
 M_1,M_2    : TArray;
 
 
 
procedure FillArray(var A:TArray; rnd:boolean; lb,rb:integer);
{процедура заполнения массива rnd=true - случайно rnd=false - вручную
 из интервала (lb,rb)}
var
 i          : byte;
 function RandomInt(x1,x2 :integer):integer;
 {возвращает случайное целое из интервала (x1,x2)} 
 var
  x         : integer;
  sign      : byte;
 begin
  x:=0;
  if x1 < x2 then 
   begin
    if x2<0 then begin
                  repeat
                   x:=-Random(abs(x1));
                  until (x>x1) and (x<x2);
                 end
            else begin
                  repeat
                   x:=random(x2);
                   sign:=random(2);
                   if sign>0 then x:=-x;
                  until (x>x1) and (x<x2);
                 end;
    RandomInt:=x;
   end;
 end;
begin
 case rnd of 
    TRUE  : for i:=1 to N do A[i]:=RandomInt(lb,rb);
    FALSE : begin
             write('[',i,']: ');readln(A[i]);
            end;
 end;
 A[0]:=N;
end;
 
procedure PrintArray(const A:TArray);
{   печатает массив   }
var
 i          : byte;
begin
writeln();
 for i:=1 to A[0] do write(A[i],' ' );
writeln();
end;
 
procedure divByOdd(const A:TArray;var A1,A2:TArray);
{процедура формирует два массива 
A1 - четные элементы A; A2 - нечетные элементы A}
var
 i          : integer;
begin
 A1[0]:=0;A2[0]:=0;
  for i:=1 to N do if odd(i) 
    then begin
          inc(A1[0]);
          A1[A1[0]]:=A[i];
         end
    else begin
          inc(A2[0]);
          A2[A2[0]]:=A[i];
         end;
end;
 
BEGIN
 
{ input & print array }
 randomize;
 FillArray(Mas,TRUE,-100,100);
 Write('formed array:');
 PrintArray(Mas);
 
{ process. & output }
 Divbyodd(Mas,M_1,M_2);
 write('odd:');
 PrintArray(M_1);
 write('even:');
 PrintArray(M_2);
  
Readln();
END.