Дан массив из 20 целых чисел, заполненный случайными целыми числами из интервала от [-100 до 100]. Найти количество элементов массива, у которых сумма двух соседних элементов четная. Данный массив вывести в строчку. (Срочно!)

 Var A:array[1..20]of integer; i,K,Z:integer;BeginRandomize;For i:= 1 to 20 do Begin A[i]:= random(200)-100; Write(A[i],' '); End; Writeln;For i:= 2 to 20 do Begin k:= (A[i-1]+ A[i]); if k mod 2 = 0 then Begin z:= z +1;Write(A[i-1]:6, A[i]:3);  End; End; Writeln; Write(z);End.