Задача на PascaleABC c массивами

[Servang]

Из предложенного одномерного массива размерностью S сформируйте двумерный массив так, чтобы первая строка новой таблицы содержала четные по номеру элемента исходного массива , а вторая - нечетные.
Предусмотреть случай нечетности S. (По большей степени нужна помощь с этим) Полученные результат вывести на экран.
Вот мои наработки

Program Massiv;
var c,i:integer;
var a:array [1..6] of integer;
var b:array [1..3,1..3] of integer;
begin
a[1]:=43;
a[2]:=32;
a[3]:=68;
a[4]:=99;
a[5]:=76;
a[6]:=87;

for i:=1 to 6 do
begin
write (a[i],' ');
end;

writeln ();
writeln ();

for i:=1 to 6 do
begin
c:=i mod 2;
if c=0
then write (a [i],' '); 
end;

writeln ();
for i:=1 to 6 do
begin
c:=i mod 2;
if c>0
then write (a [i],' ')
else write ('')
end;

end.

Помогите

[Sciv]

Предусмотреть случай нечетности S

Ну тут два варианта: либо добивать нулём до чётного количества, либо игнорировать последний элемент исходного массива. В первом случае конечный массив будет иметь размерность [2, (N+1) div 2), во втором [2, (N-1) div 2].

[Plague]

var n:=ReadInteger('Введите размер массива:');
var a:=ArrRandomInteger(n,-100,100);
begin
  a.Println;
  Writeln('Четные по номеру элементы:');
  a[::2].Println;
  Writeln('Нечетные по номеру элементы:');
  a[1::2].Println;
end.