Паскаль runtime error

[netrino]

Ну тут пример в принципе не очень хороший... Я ещё в предыдущей теме написать хотел, но не успел - её закрыли)) Попробуйте это:

program Arr;
var
  a, b, c : array [1..10] of integer;
  i, j, k : integer;

begin
  write('Vvedite massiv chisel: ');
  for i := 1 to 10 do
    readln(a[i]);

  j := 1;
  k := 1;

  for i := 1 to 10 do
  begin
    if (a[i] mod 2) = 0 then
    begin
      b[j] := a[i];
      j := j+1;
    end
    else
    begin
      c[k] := a[i];
      k := k+1;
    end;
  end;

  write('Chetnye: ');
  for i := 1 to j-1 do
    write(b[i], ' ');

  write('Nechetnye: ');
  for i := 1 to k-1 do
    write(c[i], ' ');

  readln;
end.

[Лида200915]

спасибо!ОГРОМНОЕ!!!