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

program zz1;

const n = 6; / / задаем количество элементов в массиве

var i, s, k:integer; / / задаем переменные целого типа

m:array [1 ... n] of integer;

begin

for i:=1 to n do / / получаем n чисел случайных и записываем их в массив

read (m[i]);

for i:=1 to n-1 do / / проверяем, если чередование четного и нечетного или нечетного и четного, то считаем

if ((m[i] mod 2 = 0) and (m[i+1] mod 2 = 1)) or ((m[i] mod 2 = 1) and (m[i+1] mod 2 = 0)) then k:=k + 1;

if k = n-1 then writeln (' чередуются ') else writeln ('не чередуются '); / / выводим ответ

end.