Задача 6 Урок 15

Задача 6 Урок 15:

Пользователь вводит целые числа в цикле. Запишите в массив целых чисел (из 3 элементов) все нечетные отрицательные. Как только массив будет заполнен, завершите цикл ввода новых значений пользователем и распечатайте полученный массив.

var i, b: integer;
a: array [1..3] of integer;
begin
  i := 1;
  while a[3] = 0 do
   begin
     write('Введите целое число : ');
     readln(b);
     if b mod 2 = -1 then
      begin
        a[i] := b;
        i += 1;
      end;
   end;
  for i := 1 to 3 do
   write(a[i], ' ');
  readln();
end.