Комбинированный тип данных (записи). Распечатать фамилии тех учеников, которые не получили ни одной 3 за последнию четверть

uses crt;
type    
    t=record
            fam:string;
            clas:string;
            ocenki:array[1..10] of word;
            sr:word;
            sum:word;
        end;
var
    ucheniki:array[1..10] of t;
    i,j,count,n:word;
    
begin
clrscr;
randomize;
    for i:=1 to 10 do begin
        write('Введите фамилию ученика: ');
        readln(ucheniki[i].fam);
        write('Ученик класса: ');
        readln(ucheniki[i].clas);       
        for j:=1 to 10 do begin         
            ucheniki[i].ocenki[j]:=random(2)+3;
            ucheniki[i].sr:=ucheniki[i].sr+ucheniki[i].ocenki[j];
        end;
        clrscr;
    end;
    for i:=1 to 10 do begin
        ucheniki[i].sr:=round(ucheniki[i].sr/10);       
    end;
    writeln('Каких оценок не должен иметь ученик?');
    readln(n);
    clrscr;
    for i:=1 to 10 do begin
        count:=0;
        for j:=1 to 10 do begin
            if ucheniki[i].ocenki[j]=n then inc(count);
        end;
        if count=0 then begin
            writeln(ucheniki[i].fam,'       ',ucheniki[i].clas,'       ',ucheniki[i].sr);
        end;
    end;
    writeln;write('Для выхода нажмите Enter');
    readln;
end.