Pascal урок 11 задача 8

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

var a, x : integer;
begin
  a:=1;
  while (a <= 3) do
     begin
       writeln('vvedite celoe chislo');
       readln(x); // вводим число
       if ( x < 0) and (( x mod 2) = -1) then
         begin
           a := a + 1;
           writeln(x);
        end;
     end;
  readln();
end.