[AND_REY]

Вот так у меня всё получилось:

Код:

Var
 A: Array[1..5] of integer;

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
ListBox1.Clear;
Randomize;
for i:= 1 to 5 do
begin
A[i]:= 50 - Random(100);
ListBox1.Items.Add(IntToStr(A[i]));
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i,p: Integer;
begin
p:= 0;
For i:= 1 To 5 Do if A[i] < 0 Then Inc(p);
Label1.Caption:= IntToStr(p);
end;