Составьте программу вычисления в массиве В, состоящем из восьми элементов, суммы отрицательных элементов.паскаль

var a,b,sum:integer;
arr :array [0..7] of integer;
begin
sum:=0;
write(введите элементы массива : );
for a:=0 to 7 do begin
read(b);
arr[a]:=b;
end;
for a:=0 to 7 do begin
if arr[a]end;
writeln(сумма отрицательных элементов массива = ,sum);
end.