Составьте программу, которая определяет кол-во отрицательных, кол-во положительных и кол-во нулей среди введеных чисел

введите n-количество чисел
randomize;
kp:=0;
ko:=0;
kn:=0;
for i:=1 to n do
 begin
  a:=-100+random(201);
  Memo1.Lines.Add(intostr(a));
  if a>0 then inc(kp)
  else if a<0 then inc(ko)
  else inc(kn);
 end;
Выведите kp,ko,kn.

    np, nz, nn: integer; // глобальные переменные
...
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  np := 0;
  nz := 0;
  nn := 0;
end;
 
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  i: integer;
begin
  if Key = VK_RETURN then begin
    try
      i := StrToInt(Edit1.Text);
      if i > 0 then np := np + 1;
      if i = 0 then nz := nz + 1;
      if i < 0 then nn := nn + 1;
      Label1.Caption := 'Количество положительных чисел: ' + IntToStr(np);
      Label2.Caption := 'Количество нулей: ' + IntToStr(nz);
      Label3.Caption := 'Количество отрицательных чисел: ' + IntToStr(nn);
    except
    end;
    Edit1.Text := '';
  end;
end;