Решение №4 из главы 15.Запишите в массив целых чисел (из 3 элементов) все нечетные отрицательные

Задача №4 из главы 15

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

program array_filling_4;
var j, number, count : integer;
    arr : array[1..3] of integer;
begin
count := 1;
j := 0;
while( count <= 3 ) do
begin
  writeln( 'Input digit : ' );
  readln( number );
  if ( number < 0 )  and ( ( number mod 2 ) <> 0 ) then
  begin
    j += 1;
    arr[j] := number;
    count += 1;
  end;
end;
write( 'Odd digits : ' );
for j := 1 to high(arr) do
  write( arr[j] ,' ' ); 
end.