Уважаемые експерты, пожалуйста помогите исправить ошибку в задаче на типизированный файл. Условие такое: начислить студентам группы Х на стипендию: студент который полочил оценки "5" за пять екзаменов, и активно участвовал в общественной работе( признак участия 0/1) зачисляется на повышенную стипендию, тоесть Стипенд*1,5, а если не участвовал в общественной работе, но получил все "5" то тогда Стипендия*1,25, СТУДЕНТЫ КОТОРЫЕ ПОЛУЧИЛИ "4" И "5" НАЧИСЛЯЕТСЯ ОБЫЧНАЯ СТЕПЕНДИЯ, СТУДЕНТ КОТОРЫЙ ПОЛУЧИЛ ОДНУ ОЦЕНКУ "3" НО АКТИВНО УЧАСТВОВАЛ В ОБЩЕСТВ. РАБОТЕ ТОЖЕ ЗАЧИСЛЯЕТСЯ НА ОБЫЧНУЮ СТИПЕНДИЮ, В ПРОТИВНОМ СЛУЧАЕ ЗАЧИСЛЕНИЕ НЕ ПРОИСХОДИТ.
ВОПРОС: в моем решении получилось что если он получил все тройки и участвовал в работе тогда зачсиляется, а как написать что если одну из пяти но не по всем , просто он мог получить оценку три по первому экзамену или с таким же успехом по второму или по третьему и т.д. вот как это указать?
И точно так же как указать что он получил "4" и "5", но он не мог получить все пятерки иначе был бы отличником , но у него может быть оценка 5 по первому екзамену а по всем остальн. 4, или по двум экзаменам 5 а по остальным четыре или т. д. ПОМОГИТЕ ПОЖАЛУЙСТА!!!

Приложение:
Procedure Poisk;
var t:Student;
n:String;
Stip:Real;
k:word;
Begin
Write('введите имя файла : ');
Readln(n);
Assign(F,n);
Reset(F);
k:=0;
Writeln('Стипендию могут получать следующие студенты: ');
while Not(Eof(f)) do
Begin
Read(f,t);
if (t.ispit1=5) and (t.ispit2=5) and (t.ispit3=5) and
(t.ispit4=5) and (t.ispit5=5) and (t.uchast=1) then
begin
Stip:=Razm_stip*1.5;
Writeln(t.index_gr:4, ' ', t.fio:30, ' ', stip:5:2);
end;
if (t.ispit1=5) and (t.ispit2=5) and (t.ispit3=5) and
(t.ispit4=5) and (t.ispit5=5) and (t.uchast=0) then
begin
Stip:=Razm_stip*1.25;
Writeln(t.index_gr:4, ' ', t.fio:30, ' ', stip:5:2);
end;
if ((t.ispit1=5) or (t.ispit1=4)) and ((t.ispit2=5) or (t.ispit2=4)) and
((t.ispit3=5) or (t.ispit3=4)) and ((t.ispit4=5) or (t.ispit4=4)) and
((t.ispit5=5) or (t.ispit5=4)) and ((t.uchast=1) or (t.uchast=0)) then
begin
Stip:=Razm_stip;
Writeln(t.index_gr:4, ' ', t.fio:30, ' ', stip:5:2);
end;
if ((t.ispit1=3) or (t.ispit2=3) or (t.ispit3=3) or (t.ispit4=3) or
(t.ispit5=3)) and (t.uchast=1) then
begin
Stip:=Razm_stip;
Writeln(t.index_gr:4, ' ', t.fio:30, ' ', stip:5:2);
end;
End;
Close(f);
End;