Delphi/задача. Просто подскажите как

[mov ax,bx]

Молю о вашей помощи!
Задача:
25 студентов приняли участие в межвузовской олимпиаде. Известно, сколько балов набрал каждый из них. Сколько человек набрали от 75 до 100 баллов

procedure TForm1.FormCreate(Sender: TObject);
var
 i :integer;
begin
  StringGrid1.Cells [0,0] :='№студентов';
  StringGrid1.Cells [1,0] :='Баллы';
   For i:=1 to 25 do
     StringGrid1.Cells [0,i] := IntToStr(i);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 i:integer;
begin
 randomize;
for i:=1 to 25 do
StringGrid1.Cells[1,i]:=floattostr(random(100));
end;

Вот сделал половину. Помогите сделать другую половину, а именно как мне определить сколько человек набрали от 75 до 100 баллов?

[Stilet]

именно как мне определить сколько человек набрали от 75 до 100 баллов?

Оч просто:

procedure TForm1.Button1Click(Sender: TObject);
var
 k,i:integer;f:double;
begin
 randomize;k:=0;
for i:=1 to 25 do begin
 f:=random(100);
 StringGrid1.Cells[1,i]:=floattostr(f);
 if (f>=75)and(f<=100) then inc(k);
end;
end;

В переменке "К" будет кол-во.

[mov ax,bx]

Спасибо Виталий! Сейчас попробую