Составить программу из 2 частей.В основной ввести элементы одномерного массива.В функции подсчитать сумму отрицательных элементов этого массива — Pascal(Паскаль)

program test;
const n=5;
var a:array[1..n] of integer;i,s:integer;
 
function f(b:integer):integer;
begin
if b<0 then f:=b else f:=0;
end;
 
begin
randomize;
s:=0;
for i:=1 to n do
begin
a[i]:=random(20)-10;
write(a[i],' ');
s:=s+f(a[i]);
end;
writeln;
writeln(s);
readln;
end.