Разделить последовательность а(20) на два массива в один из них четные а в другой нечетные элементы

Заполняешь массив после чего делаешь так(надеюсь заполнять,объявлять массив и шапку писать умеешь,пишу на паскале(и да не забудь объявить еще два массива).
n:=0;
f:=0;
for i=1 to 20 do 20
if a[i]<>0 then 
begin
if a[i] mod 2 = 0 then 
  b[n+1]:=a[i];
else
 c[f+1]:=a[i];
end.
в принципе все,остальное это красивости