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

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.