Распечатать (вывести на экран) фамилии тех учеников, которые не получили ни одной тройки

uses
  math,sysutils;
const
  n_predm=10;
  n=33;
type
  uchenik=record
    fio:string[128];
    klass:string[3];
    ocenki:array [1..n_predm] of 2..5;
  end;
 
var
  uch:array[1..n] of uchenik;
  j,i:integer;
  f:file of uchenik;
  x:uchenik;
  sum:real;
  bad:boolean;
begin
  randomize;
  {создание файла данных - отладка}
  assign(f,'dan.dat');
  rewrite(f);
  for i:=1 to n do
    begin
      with uch[i] do
        begin
          {этот код заменить на ввод данных с клавиатуры}
          klass:=inttostr(randomrange(11,1));
          fio:=chr(randomrange(65,65+26))+'шкин';
          for j:=1 to n_predm do
            ocenki[j]:=randomrange(2,5)+1;
        end;
      write(f,uch[i]);
    end;
  close(f);
 
  {чтение из файла}
  reset(f);
  while not eof(f) do
    begin
      read(f,x);
      bad:=false;
      for i:=1 to n_predm do
        if (x.ocenki[i] =2) or (x.ocenki[i] =3) then
          begin
            bad:=true;
            break;
          end;
        if not bad then
          begin
            sum:=0;
            for i:=1 to n_predm do
              sum:=sum+x.ocenki[i];
            sum:=sum/n_predm;
            write(x.fio,', класс: ',x.klass,', оценки: ');
            for i:=1 to n_predm do
              write(x.ocenki[i],' ');
            writeln(', ср. балл = ',sum:0:2);
          end;
    end;
  close(f);
  readln;
end.