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

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.

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.