Решение задачи 8 из главы 11

Решение задачи 8 из главы 11

Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Считайте и выведите на экран значения первых трех отрицательных нечетных чисел. После чего завершите цикл.

Срабатывает только при подряд введенных трех отрицательных числах.

program Project8;
var i, a: integer;
begin
  i:=1;
  while (i <= 3) do
  begin
    writeln('Vvedite zeloe chislo:');
    readln(a);
      if (a < 0) then
         begin
         writeln(a);
         i:=i+1;
         end
      else
      i:=1;
  end;
  writeln('Konez zikla!');
  readln();
end.