одномерный массив

[Кирилл17]

помогите. программа не работает. фигню выдает. если не трудно - поравте где надо.может она вся не правильная.
Дан массив Х(22). Сформировать два массива С(11) и В(11), включая в первый массив элементы исходного массива с четными индексами, а во второй с нечетными.

program p1;
const n=22;m=11;q=11;
var X:array [1..n] of real;
C:array [1..m] of real;
B:array [1..q] of real;
i:integer;

begin
writeln('vvedite el massiva');
for i:=1 to n do
read(x[i]);
for i:=1 to n do
if i mod 2<>0 then c[i]:=x[i];
writeln('vivod c');
for i:=1 to m do write(c[i],' ');
for i:=1 to q do
if i div 2<>0 then b[i]:=x[i];
writeln('vivod b');
for i:=1 to q do write(b[i],' ');

end.

[Sazary]

program p1;
const n=22;m=11;q=11;
var X:array [1..n] of real;
C:array [1..m] of real;
B:array [1..q] of real;
i,ci,bi:integer;

begin
writeln('vvedite el massiva');
for i:=1 to n do
read(x[i]);
ci:=1;
bi:=1;
for i:=1 to n do
 begin
 if i mod 2 = 0 then
              begin
              c[ci] := x[i];
              inc(ci);
              end
 else begin
      b[bi] := x[i];
      inc(bi);
      end;
 end;
writeln('vyvod c:');
for i:=1 to m do
 write(c[i]:3:1,' ');
writeln;
writeln('vyvod b:');
for i:=1 to q do
 write(b[i]:3:1,' ');
writeln;

readln;
end.

[Кирилл17]

что такое inc и можно ли его чем нибудь заменить? я никогда не использовал inc в програме

[Sazary]

Кирилл17
inc просто прибавляет 1 к аргументу.
замените на

bi := bi + 1;

[_Engine_]

inc изменяет величину первого параметра на величину второго, например
inc(a, b) эквивалетно a:=a+b;
Если второй параметр не указан, то он по умолчанию равен 1.

[Кирилл17]

с п а с и б о