максимальный отрицательный элемент, не выполняет проверку, что-то не так? Опции

[AVP]

при вводе всех положительных чисел, не выполняется программа

Код

program Project;
const
 MaxSize = 100;{ максимальное число элементов в массиве}
var
 A: array [1..MaxSize] of LongInt;{исходный массив}
 NA: Integer;{число элементов в исходном массиве}

 MaxNeg: Integer;{максимальный отрицательный элемент}

 IA:Integer;{индекc текущего элемента массива}
begin
 {Ввод массива}
    writeln('Нахождение максимального отрицательного элем-та массива целых чисел.');
    repeat
    write('Задайте число элементов в массиве (1..', MaxSize,') ');
    readln(NA);
    if (NA <= 0) or (NA > MaxSize) then
    writeln('Вы ошиблись! Повторите!');
 until (NA > 0) and (NA <= MaxSize);
 for IA :=1 to NA do
 begin
    write('Введите числа N',IA,' ');
    readln(A[IA]);
    end;
    {Нахождение максимального отрицательного элемента}
    MaxNeg := -MAXINT;
    for IA := 1 to NA do
 if (A[IA] > MaxNeg) and (A[IA] < 0)
     then MaxNeg := A[IA];
    {Проверка есть ли отрицателдьные элементы и вывод результата }
    if MaxNeg>0
 then writeln('Не найдено ни одного отрицательного элемента')
 else writeln('Максимальный отрицательный элемент = ',MaxNeg)
end.