Дан массив. Проверить чередуются ли в нем четные и нечетные числа. (Паскаль)

Var A:array[1 ... 100] of Integer;

i, N:integer;

b:boolean;

begin

b:=true;

Readln (N) ;

For i:=1 to N do

Readln (A[i]) ;

For i:=1 to N-1 do

If not (((A[i] mod 2=0) and (A[i+1] mod 2=1)) or ((A[i] mod 2=1) and (A[i+1] mod 2=0))) then

b:=false;

If b=true then

Writeln ('Чередуются')

else

Writeln ('Не чередуются') ;

end.

Var

a:array[1 ... 1000] of longint;

n, i, k:longint;

begin

readln (n) ;

for i:=1 to n do read (a[i]) ;

if odd (a[1]) then k:=1 else k:=2;

for i:=2 to n do

begin

if (odd (a[i])) and (k=1) then

begin

writeln ('No') ;

halt;

end;

if (not odd (a[i])) and (k=2) then

begin

writeln ('No') ;

halt;

end;

if k=1 then k:=2 else k:=1;

end;

writeln ('Yes') ;

end.