Вводится 4 числа, надо узнать есть ли среди них отрицательные? Паскаль с циклом for

var

haveNegative : boolean;

x, i : integer;

begin

haveNegative := false;

for i:= 1 to 4 do

   begin

   readln(x);

   if x < 0 then

       haveNegative := true;

   end;

if haveNegative then

   writeln('Отрицательное число есть!')

else

   writeln('Отрицательного числа нет!');

end.