вводится 6 чисел выводится сумма всех отрицательных если их нет так

program sum_of_negative;
var n, s: integer;
begin
writeln(Введите 6 положительных и отрицательных чисел);
for i: integer:= 1 to 6 do
begin
write(i, -е число: );
readln(n);
if n lt; 0 then s:= s + n;
end;
if s lt;gt; 0 then writeln(Сумма отрицательных чисел: , s )
else
writeln(Отрицательных чисел в последовательности нет)
end.