Нужно решить задачу в Delphi с файлами, помогите?

[Alex_93*]

текст задачи: Дан файл, содержащий в каждой отдельной строке фамилию, предмет и оценку(на 1 фамилию - 1...n предметов), нужно вывести список студентов, имеющих оценки только 4 и 5 по всем предметам.. задачу нужно срочно сдавать, поэтому буду рад любой помощи, заранее спасибо!!

[testtest]

Код: [Выделить]

while not eof(f) do begin
readln(f,s);
if s[length(s)] in ('4','5') writeln(s);
end;