вводится 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 < 0 then s: = s + n;

end;

if s 0 then writeln ('Сумма отрицательных чисел: ', s)

else

writeln ('Отрицательных чисел в последовательности нет')

end.