6 numbers are entered, the sum of all negative ones is displayed if they are not there

6 numbers are entered, the sum of all negative ones is displayed if they are not there, and no values should be written. need to write a program in the form of a dialogue in pascal

program sum_of_negative;
var n, s: integer;
begin
writeln (‘Enter 6 positive and negative numbers’);
for i: integer: = 1 to 6 do
begin
write (i, ‘th number:’);
readln (n);
if n <0 then s: = s + n;
end;
if s <> 0 then writeln (‘Sum of negative numbers:’, s)
else
writeln (‘There are no negative numbers in the sequence’)
end.