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

 Var A:array[1..20]of integer;  i,K,Z:integer; Begin Randomize; 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.