Составьте программу, которая формирует массив, содержащий 16 случайных вещественных чисел, принадлежащих промежутку [-2;3] и подсчитывает сумму отрицательных чисел. Вывод в столбец с двумя десятичными знаками. Только Паскаль ABC!

Program Program1;
var
i:integer;
sum:real;
a:array [1..16] of real;
begin
randomize;
for i:=1 to 16 do
begin
a[i]:=-2 + Random * 5;
writeln(a[,i,]=,a[i]:0:2);
end;
sum:=0;
for i:=1 to 16 do
if a[i]writeln(Сумма отрицательных чисел равна,sum:0:2);
end.