Переписать элементы одномерного массива с чётными индексами в один массив, а с нечётными - в другой

{uses SysUtils} //Раскомментируй это, если у тебя не PascalABC.NET
 
{ВНИМАНИЕ!!! В ЭТОЙ ПРОГРАММЕ ИНДЕКСАЦИЯ ВСЕХ МАССИВОВ ИДЁТ ОТ 0!}
 
type
  binary = -1..1;
  int = integer;
  uint = byte;
  arr = array of int;
  matrix = array of arr;
  
var 
  a:arr;
  m:matrix; //Здесь в первой строке - массив t, а во второй - d
  i:uint;  
  tmp:binary; //Показывает, какие по знаку элементы мы переписываем
  
begin
  writeln('Введите n - длину массива:');
  read(i);
  writeln('Введите 1 для переписывания положительных, -1 - для отрицательных элементов:');
  read(tmp);
  SetLength(a, i);
  SetLength(m, 2);
  SetLength(m[low(m)], 0);
  SetLength(m[high(m)], 0);
  writeln('Введите массив длины n:');
  for i:= low(a) to high(a) do
  begin
    read(a[i]);
    if (a[i] * tmp > 0) then
    begin
      SetLength(m[i mod 2], Length(m[i mod 2]) + 1);
      m[i mod 2, high(m[i mod 2])]:= a[i];
    end;
  end;
  
  if (Length(m[low(m)]) > 0) then
  begin
    writeln('Элементы с чётными индексами:');
    for i:= low(m[low(m)]) to high(m[low(m)]) do
      write(m[low(m), i], ' ');
  end
  else 
    writeln('Нет элементов с чётными индексами, удовлетворяющих условию.');
  if (Length(m[high(m)]) > 0) then
  begin
    writeln(#13#10, 'Элементы с нечётными индексами:');
    for i:= low(m[high(m)]) to high(m[high(m)]) do
      write(m[high(m), i], ' ');
  end
  else
    writeln(#13#10, 'Нет элементов с нечётными индексами, удовлетворяющих условию.');
end.