Задача на языке Pascal, с массивами

[Bonni]

Задача: из заданного массива создать два: в одном четные, в другом нечетные элементы данного массива.
Исправьте ошибки, их тут наверно много:

program dacha19;
var a,i: integer;
     b,x,y:array [1..1000] of integer;
begin
randomize;
writeln('vvedite luboe chislo');
readln(a);
for i:=1 to a do begin
                     b[i]:=random(100);
                     write(b[i],' ');
                     end;
for i:=1 to a do begin
                      if b[i]mod 2 =0 then begin
                                                  x[i1]=b[i];
                                                  i1:=i1+1;
                                                  end;
                      else begin
                            y[i2]=b[i];
                            i2:=i2+1;
                            end;
                       end;
write(b[i],' ');
end.

[Stilet]

Я ошибок не вижу... По-моему вполне работоспособная программа. Компилируй и запускай.

[Bonni]

нет, не компилируется. может вывожу на экран неправильно( у меня free pascal). Я не знаю как выводить в конце два массива- ни разу два не выводила.

[Danko]

Ошибки, конечно, есть:
1)Переменные i1 и i2 у вас не объявлены;
2)Перед "else" точка с запятой не ставится.
3)При присвоении числа элементу массива ставится так же ":=", а не просто "=".
Массивы выводятся на экран так же, как и заполняются, т.е:

for i:=1 to i1-1 do
write(x[i],' ');
writeln;
for i:=1 to i2-1 do
write(y[i],' ');

И еще, когда вы объявите в переменных i1 и i2, присвойте обоим переменным единицы, иначе у вас будет выход за границы массива.

[GetMax]

for i:=1 to a do begin
                      if b[i]mod 2 =0 then begin
                                                  x[i1]=b[i];
                                                  i1:=i1+1;
                                                  end;
                      else begin
                            y[i2]=b[i];
                            i2:=i2+1;
                            end;
                       end;
write(b[i],' ');

А зачем вы второй раз выводите элементы исходного массива? Вам нужно вывести два новых массива:с четными и нечетными элементами. Для этого лучше всего организовать два новых цикла(один для вывода массива четных, другой - для нечетных). Кроме того в вашем коде есть и другие ошибки. Вообщем вот:

i1:=0;
i2:=0;
for i:=1 to a do
begin
  if b[i] mod 2 = 0 then
  begin
    i1:=i1+1;
    x[i1]:=b[i];
  end
  Else
  begin
    i2:=i2+1;
    y[i2]:=b[i];
  end;
end;
Writeln;
If i1 > 0 then
For i:=1 to i1 do Write(x[i]:3);
Else Writeln('Chetnye elementy ne naydeni');
Writeln;
If i2 > 0 then
For i:=1 to i2 do Write(y[i]:3)
Else Writeln('Nechetnye elementy ne naydeny');
Readln
End.