Ввести массив из 30 производных чисел и найти сумму всех отрицательных(паскаль)

Program gt;
var a:array[1..30] of integer;
i,s:integer;
begin
randomize;
s:=0;
for i:=1 to 30 do
begin
read(a[i]);
write(a[i],' ');
if(a[i]<0)then s:=s+a[i];
end;
writeln;
writeln('s=',s);
end.