Паскаль, перенести числа из одного массива в др

[Nail77]

помогите пожалуйста с задачой. на (паскаль)
Из массива j(100) в массив N(100) перенести числа (элементы массива) сначала нечетные, а затем четные.
заранее пасибо

[Данила]

Код: [Выделить]

m:=1; // счетчик с начала нового массива
k:=100;//счетчик с конца нового массива
for i:=1 to 100 do begin //циклом бежим по массиву
     if (J[i] mod 2 = 1) then begin //если i-тый элемент делится на 2 с остатком(нечетный) то записываем в начало нового массива и увеличиваем счетчик
             N[m]:=J[i];
             inc(m);
      end;
      else begin  // иначе,то есть если остаток от деления на 2 = 0,то пишем в конец и уменьшаем счетчик
             N[k]:=J[i];
             dec(k);
      end;