Задача 10 урок 11

http://fkn.ktu10.com/?q=node/7341
Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Сохраните в переменные первые три отрицательных нечетных числа, сложите их, выведите сумму на экран и завершите цикл.

program task10_lesson11;
var i,a,a1,a2,a3: integer;
  begin
    i:=0;
    while i<3 do
          begin
            writeln('enter number');
            readln(a);
            if ((a < 0) and ((a mod 2) = -1)) then
               begin
                 i:=i+1;
                 if i=1 then
                    a1:=a
                 else if i=2 then
                    a2:=a
                 else
                    a3:=a;
               end;
          end;
    writeln(a1+a2+a3);
    readln();
  end.