Дан целочисленный массив размера N. Вывести вначале все его четные элементы, а затем - нечетные.

Program mas;
Var A:array[1..N] of integer;
    i:integer;
Begin
     for i:=1 to N do
         Begin
         Write ('Введите элемент массива ');
         Readln (A[i]);
         end;
     Write ('Четные элементы массива:');
     for i:=1 to N do
         if (A[i] mod 2 = 0) then Write (A[i],' ');
     Write ('Неччетные элементы массива:');
     for i:=1 to N do
         if (A[i] mod 2 = 1) then Write (A[i],' ');
End.

uses crt;
var
a:array[1..100] of integer;
i,n:byte;
begin
clrscr;
write('razmernost massiva=');readln(n);
randomize;
for i:=1 to n do
 a[i]:=random(101)-50;
writeln('Ishodniy Massiv');
for i:=1 to n do
  write(a[i]:5);
writeln;
writeln('Chetniye elementi');
for i:=1 to n do
 if odd(a[i])=false then write(a[i]:5);
writeln;
writeln('Nechetniye elementi');
for i:=1 to n do
 if odd(a[i]) then write(a[i]:5);
readln
end.

if odd(a[i])=false then write(a[i]:5);

if not odd(a[i]) then write(a[j]:5);