Обработка записей, список студентов со средним баллом Опции

[TyKuC]

Здравствуйте....помогите с заданием...3 задания сделал осталось 1 не как не могу понять как его сделать.. .

Даны массивы: F1..,F10 - фамилии студентов
B1..,B10 - средние баллы за семестр и задан R - стипендиальный фонд на группу.
Стипендия назначется в пределах фонда студентам со средним баллом, большим 4 Напечатать список студентов со средним баллом выше 4 и указать количество стипендий на группу.

[klem4]

count := 0;
for i := 1 to 10 do
 if b[i] > 4 then begin
   writeln(a[i]);
   inc(count);
 end;

writeln('count = ', count);

Вот только причем тут R я не пойму ...