Найти студента, среди оценок которого всего одна "тройка"

program wwod_swed;
uses crt;
Type
        birthday = Record
                dd:1..31;
                mm:string[10];
                yy:integer;
        end;
        student=Record
                famil:string[20];
                name:string[15];
                date:birthday;
                ball: array[1..3] of integer;
                srball:real;
        end;
Var
        gruppa: array[1..20] of student;
        n,k:word;
        i:integer;
        m:real;
        proverka:boolean;
begin
        clrscr;
        Write('Сколько человек в группе? ');
        Readln(n);
        Writeln ('введите фамилию студента:');
        for i:=1 to n do
        with gruppa[i] do
        begin
                write(i,' студент ');
                writeln('фамилия ');
                Readln (Famil);
                writeln('имя ');
                Readln (name);
                writeln('дата рождения ');
                Read (date.dd);
                Read (date.mm);
                Readln (date.yy);
                write('оценки');
                Read (ball[1]);
                Read (ball[2]);
                Readln (ball[3]);
 
        end;

for i:=1 to n do
with gruppa[i] do
begin
 kol:=0;
 for j:=1 to 3 do
 if ball[j]=3 then inc(kol);
 if kol=1 then writeln(Famil,' ',name);
end;

for i:=1 to n do
with gruppa[i] do
begin
 kol:=0;
 if ball[1]=3 then inc(kol);
 if ball[2]=3 then inc(kol);
 if ball[3]=3 then inc(kol);
 if kol=1 then writeln(Famil,' ',name);
end;

Program st_grup;
Uses crt;
Type student=Record
Famil:string[20];  {Фамилия}
Name:string[15];   {Имя}
Let:14..30;        {Возраст}
Rost:word;         {Рост}
end;
Var
Group: file of student;
Person: student;
i,k,dl,ws:word;
Begin
assign (group,'gruppa.dat'); {Связывание переменной с файлом} reset(group); {Открытие файла для чтения}
i:=0; dl:=0; ws:=0;
{Определение возраста и самого высокого студента}
While not EOF(group) do {Считывание записей из файла до тех пор, пока не достигнут конец файла}
Begin
i:=i+1; {Счетчик студентов}
Read (group,person); {Считывание записей из файла}
With person do begin
Ws:=ws+let; {Суммарный возраст}
Writeln (Famil,'  ',name,'  ',let:3,'  ',rost); {Вывод на экран сведений о студенте}
If rost>dl then  begin dl:=rost; k:=i-1; end; {Поиск высокого}
End;
End;
Seek(group,k); {Переход к записи в файле, содержащей сведения о самом высоком}
Read(group,person);{Считывание к-ой записи из файла}
Writeln('Самый высокий в группе','  ',person.name); writeln('Его рост - ','  ',person.rost);
Close(group);
Writeln('Средний возраст студентов группы Р-198А','  ',ws/i:5:2);
Readln;
End.

begin
 kol:=0;
 if ball[1]=3 then inc(kol);
 if ball[2]=3 then inc(kol);
 if ball[3]=3 then inc(kol);
 if kol=1 then writeln(Famil,' ',name);
end;