Сформировать два массива: в первый включить элементы исходного массива с четными номерами, а во второй - с нечетными

program pr;
uses
     crt;
var
     a: array[1..8] of integer;
     b: array[1..4] of integer;
     c: array[1..4] of integer;
     i: integer;
begin
     randomize;
     clrscr;
     writeln('array a:');
     for i := 1 to 8 do
     begin
        a[i] := random(50);
        write(a[i], ' ');
        if (i mod 2 = 0) then
           b[i div 2] := a[i]
        else
           c[i div 2] := a[i-2];
 
     end;
     writeln;
     writeln('array b:');
     for i := 1 to 4 do
         write(b[i], ' ');
     writeln;
     writeln('array c:');
     for i := 1 to 4 do
        write(c[i], ' ');
     writeln;
     readkey;
end.

uses
     crt;
var
     a: array[1..8] of integer;
     b: array[1..4] of integer;
     c: array[1..4] of integer;
     i,j,k: integer;
begin
     randomize;
     clrscr;
     writeln('array a:');
     k:=0;
     j:=0;
     for i := 1 to 8 do
     begin
        a[i] := random(50);
        write(a[i], ' ');
        if (i mod 2 = 0) then
        begin
           inc(j);
           b[j] := a[i];
        end
        else
         begin
           inc(k);
           c[k] := a[i];
          end;
 
     end;
     writeln;
     writeln('array b:');
     for j:= 1 to 4 do
         write(b[j], ' ');
     writeln;
     writeln('array c:');
     for k := 1 to 4 do
        write(c[k], ' ');
     writeln;
     readkey;
end.