В последовательности чисел, вводимых с клавиатуры, подсчитать количество четных чисел. Признак завершения ввода: два числа подряд больше 100 — Pascal(Паскаль)

uses crt;
var
ch,kol,konec:integer;
begin clrscr;
kol:=0;
konec:=0;
while konec<>2 do
 begin
  write('ch=');
  read(ch);
  if ch mod 2=0 then inc(kol);
  if ch>100 then inc(konec);
 end;
writeln;
writeln('kol-vo=',kol);
readkey;
end.