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

Program Program1;vari,sum:integer;A: array [1..16] of integer;beginrandomize;for i:=1 to 16 dobegina[i]:=random(6)-2;write(a[i],', ');end;sum:=0;for i:=1 to 16 doif a[i]<0 then sum:=sum+a[i];writeln('Сумма отрицательных чисел равна',sum);end.