Файлы: Выяснить, сколько учеников школы не имеют оценок ниже четырех

uses crt;
 
type ucheniki = record                //описание записи
     name: string[10];
     fam:  string[10];
     kl:   integer;
     kll:  string[1];
     oz: array [1..20] of integer;    //массив для отметок
     end;
 
var u: ucheniki;                       //описание переменных
    i,j,n,m:integer;
    f: file of ucheniki;
 
begin
assign(f, 'C:\uch.dat');                //инициализация связи с файлом
rewrite(f);                             //открытие Файла для записи
write('Сколько учеников? ');
readln(n);
write('Сколько отметок у одного ученика? ');
readln(m);
writeln('Внесите данные об учениках: ');    //заполнение базы
for i:=1 to n do
    with u do
         begin
         write('Фамилия ',i,' учащегося: '); readln(fam);
         write('Имя: '); readln(name);
         write('Класс(цифра): '); readln(kl);
         write('Класс(буква): '); readln(kll);
         writeln('Oценки, всего ',m,': ');
         for j:=1 to m do readln(oz[j]);
         write(f,u);
         end;
close (f);
end.

uses crt;
 
type ucheniki = record;
     name: string[10];
     fam:  string[10];
     kl:   integer;
     kll:  string[1];
     oz: array [1..20] of integer;
     end;
 
var u: ucheniki;
    i,j,k,n,m:integer;
    f: file of ucheniki;
 
begin
assign(f, 'C:\uch.dat');                         //ассоциация с файлом
write('Сколько отметок у одного ученика? ');
readln(m);
reset(f);
while not eof(f) do                              //считывание до конца файла
      begin
      read(f,u);
      with u do                                  //с каждой записью
           for j:=1 to m do                      //в цикле с параметром для всех отметок одного ученика
               if oz[j]>3 then inc(k);            //если отметка не ниже 4, увеличить счетчик
      if k=m then inc(n);                         //если все отмети не ниже 4, увеличить другой счетчик
      end;
writeln(n,' учащихся не имеют отметок ниже 4');   //вывод
close (f);
readln;
end.

uses crt;
 
type ucheniki = record                //описание записи
     name: string[10];
     fam:  string[10];
     kl:   integer;
     kll:  string[1];
     oz: array [1..20] of integer;    //массив для отметок
     end;
 
var u: ucheniki;                       //описание переменных
    i,j,n,m,k,ku:integer;
    f: file of ucheniki;
 
begin
assign(f, 'C:\uch.dat');                //инициализация связи с файлом
rewrite(f);                             //открытие Файла для записи
write('Сколько учеников? ');
readln(n);
write('Сколько отметок у одного ученика? ');
readln(m);
writeln('Внесите данные об учениках: ');    //заполнение базы
for i:=1 to n do
    with u do
         begin
         write('Фамилия ',i,' учащегося: '); readln(fam);
         write('Имя: '); readln(name);
         write('Класс(цифра): '); readln(kl);
         write('Класс(буква): '); readln(kll);
         writeln('Oценки, всего ',m,': ');
         for j:=1 to m do readln(oz[j]);
         write(f,u);
         end;
reset(f);
while not eof(f) do                              //считывание до конца файла
      begin
      read(f,u);
      k:=0;
      with u do                                  //с каждой записью
           for j:=1 to m do                      //в цикле с параметром для всех отметок одного ученика
               if oz[j]>3 then inc(k);            //если отметка не ниже 4, увеличить счетчик
      if k=m then inc(ku);                         //если все отмети не ниже 4, увеличить другой счетчик
      end;
writeln(ku,' учащихся не имеют отметок ниже 4');   //вывод
close (f);
readln;
end.