Из исходного массива заполнить два других массива

[DarkStalkerus]

Дана задача из исходного массива заполнить два других массива
один четными элементами, а другой нечетными затем из них сформировать массив, в который заполняется сначала четные элементы, а затем нечетные.

Вот часть кода которая отвечает за проверку на четность нечетность:

program ss;
uses crt;
const n=20;
type mass=array[0..n] of integer;
mass_1=array[0..n] of integer;
mass_2=array[0..n] of integer;
mass_3=array[0..n] of integer;
var
k,i,g,j,z:integer;
A:mass;B:mass_1;C:mass_2;D:mass_3;
otv:0..1;
begin
clrscr;
writeln('Введите количество элементов массива->: ');
read(k);
for i:=1 to k do
         begin
          write('Введите элементы массива->: ');
          read(A[i]);
          end;
clrscr;
writeln('Искодный массив А');
writeln('_________________');
write('(');
for i:=1 to k do write(A[i]:0);
write(')');
writeln('Для продолжения нажмите любую клавишу');
readkey;
for i:=1 to k do
     if (A[i] mod 2=0) and (A[i] in [0..k]) then
                                             Begin
                                              gotoxy(5,5);
                                              writeln('Массив из четных элементов');
                                              for j:=1 to k do
                                                              Begin
                                                                B[j]:=A[i];
                                                                gotoxy(6,6);
                                                                write('(');
                                                                write(B[j]:0);
                                                                write(')');
                                                              end;
                                             end;
                                             for i:=1 to k do 
                                               if (A[i] mod 2<>0) and (A[i] in [0..k] )then 
                                                                                        Begin
                                                                                         gotoxy(7,8);
                                                                                         write('Массив из нечетных элементов');
                                                                                          for g:=1 to k do
                                                                                                          Begin
                                                                                                           C[g]:=A[i];
                                                                                                           gotoxy(8,9);
                                                                                                           write('(');
                                                                                                           write(C[g]:0);
                                                                                                           write(')');
                                                                                                          end;
                                                                                        end;
                                                                                        
writeln('Для продолжения нажмите любую клавишу');
readkey;
end.

Исходный массив A<1 2 3 4 5>
проблема в том, что при выводе результата
получается следущее
два массива
B<4> и C<5>
а должнобыть так
B<2 4> и C<1 3 5>




___________
1) Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться.

2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[zhan313]

Координаты вывода одинаковые, write пишет на одно и тоже место. Виден только последний элемент.