Вводятся целые тор числа по одному, до тех пор пока не будет введен 0. посчитать количество четных чисел. язык паскаль. использовать оператор while

Var
  i, n, k: integer;

begin
  n := 1; k := 0;
  while n <> 0 do
  begin
    Write('Введите целое число, 0 - отказ от ввода: ');
    Readln(n);
    if (n <> 0) and (n mod 2 = 0) then k := k + 1
  end;
  Writeln('Введено четных чисел- ', k)
end.

Введите целое число, 0 - отказ от ввода: 34
Введите целое число, 0 - отказ от ввода: 137
Введите целое число, 0 - отказ от ввода: 72
Введите целое число, 0 - отказ от ввода: 9243
Введите целое число, 0 - отказ от ввода: 0
Введено четных чисел- 2