Дан целочисленный массив размером 15.найти сумму отрицательных элементов

const n=15;

var m:array [1..n] of integer;

i,s:integer;

begin

write('Массив: ');

for i:=1 to n do

begin

m[i]:=random(41)-20;

if m[i] < 0 then s:=s+m[i];

write(m[i],'  ')

end;

writeln;

writeln('Сумма отрицательных элементов: ',s)

end.