Помогите решить задачку в паскале ! Пожалуйста !
Дан массив. Сформировать три массива, включив в первый положительные чётные элементы массива, во второй - положительные нечётные, в третий - все остальные.

const  n = 20;var  a, p0, p1, pa: array[1..n] of integer;  i, ip0, ip1, ipa: integer;begin  write('Введите ', n, ' элементов массива: ');  for i := 1 to n do read(a[i]);  writeln;  ip0 := 0;  ip1 := 0;  ipa := 0;  for i := 1 to n do    if a[i] > 0 then      if (a[i] mod 2) = 0 then begin        ip0 := ip0 + 1;        p0[ip0] := a[i]      end      else begin        ip1 := ip1 + 1;        p1[ip1] := a[i]      end    else begin      ipa := ipa + 1;      pa[ipa] := a[i]    end;  write('Положительные четные: ');  for i := 1 to ip0 do write(p0[i]:4);  writeln;  write('Положительные нечетные: ');  for i := 1 to ip1 do write(p1[i]:4);  writeln;  write('Остальные: ');  for i := 1 to ipa do write(pa[i]:4);  writelnend.Тестовое решение:Введите 20 элементов массива: 3 8 -5 -8 3 0 4 12 -13 42 0 8 6 24 15 -9 47 18 53 -30 Положительные четные:    8   4  12  42   8   6  24  18Положительные нечетные:    3   3  15  47  53Остальные:   -5  -8   0 -13   0  -9 -30

См. файл во вложении.