Найти сумму отрицательных из 10 любых вещественных чисел введенных с кавиатуры

program test;
var i:integer; n, sum: real;
begin
   sum:=0;
   write('Enter 10 numbers: ');
   for i:=1 to 10 do
   begin
      read(n);
      if n < 0 then
         sum:=sum+n;
   end;
   writeln('Sum = ', sum);
   readln;
end.