Сначала выводятся числа, стоящие на нечетных местах, а затем — стоящие на четных местах

procedure ReadNums(var a: array of Integer; n: Integer; IsOdd: Boolean);
var i: Integer;
begin
  for i:=1 to n do
    if Odd(i) xor not IsOdd then Read(a[i]);
  ReadLn;
end;
 
procedure WriteNums(const a: array of Integer; n: Integer);
var i: Integer;
begin
  for i:=1 to n do Write(' ',a[i]); WriteLn;
end;
 
var
  a: array [1..100] of Integer;
  n: Integer;
begin
  Write('Введите N: '); ReadLn(n);
  Write('Введите числа нечетных позиций: '); ReadNums(a,n,True);
  Write('Введите числа   четных позиций: '); ReadNums(a,n,False);
  WriteLn('Итоговый массив:'); WriteNums(a,n);
end.

procedure ReadNums(var a: array of Integer; n: Integer);
var i: Integer;
begin
  for i:=1 to n do Read(a[i]); ReadLn;
end;
 
procedure WriteNums(const a: array of Integer; n: Integer; IsOdd: Boolean);
var i: Integer;
begin
  for i:=1 to n do
    if Odd(i) xor not IsOdd then Write(' ',a[i]);
  WriteLn;
end;
 
var
  a: array [1..100] of Integer;
  n: Integer;
begin
  Write('Введите N: '); ReadLn(n);
  Write('Введите числа: '); ReadNums(a,n);
  Write('Числа нечетных позиций: '); WriteNums(a,n,True);
  Write('Числа   четных позиций: '); WriteNums(a,n,False);
end.