Циклический вычислительный процесс Delphi

[MisaMisa]

Общая постановка. Дана последовательность чисел a1, a2, a3, … . Количество элементов в последовательности заранее неизвестно. Написать программу с запросом продолжения ввода (массив не использовать).
Подсчитать количество четных элементов последовательности.

[netpolice]

Конечно жалко, что вы даже не пытаетесь хоть что-то

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
p:Boolean;
c:Char;
a,i:Integer;


begin

  p:=True;
  i:=0;

  while p do
      begin
        Write('Введите число:');
        Readln (a);
        if (a mod 2)=0 then Inc(i);


        Write('Вводить число? (y/n)');
        Readln (c);
        if (c='n') or (c='N') then p:=False;
      end;

  Writeln('Количество четных элементов:', i);
  readln;
end.