Запросить массив из 5 частей и определить кол-во отрицательных частей. (Как

Program firstProgram;
varmasiv: Array[0..4] of integer;counter:integer;i:integer;beginRandomize();counter:=0;for i:= 0 to masiv.Count-1 do begin  masiv[i]:=random(-5,5);  writeln(masiv[i]); //вывод элементов массива (можно удалить). end; for i:=0 to masiv.Count-1 do begin  if masiv[i]lt;0 then   begin    counter:= counter+1;   end; end; Writeln('Всего отрицательных частей: '+counter);Readln();end.

var n:array [1..5] of integer;

var c: integer; 

begin

for i:=1 to 5 do

     if n[i]lt;0 then c:=c+1;

end.