Файл record: Сведения об ученике состоят из его фамилии, имени и названии класса, в котором он учится - Pascal ABC - Ответ 4446399

type anketa=record
fam:string[20];
name:string[20];
klass:byte;
lt_cl:'а'..'я';
end;
var
s:anketa;
f:file of anketa;
k,n,i,j:byte;
begin 
   assign(f,'s.pas'); reset(f);
   writeln('вывод информации об учениках');
   writeln(' n ! фамилия ! имя ! класс');
   n:=0;
   read(f,s);
   while not eof(f) do begin
     n:=n+1;
     
     with s do begin
     writeln(n, '!', fam, '!', name, '!', klass:3);
     end;
      end;
       close(f);
       reset(f);
       k:=0;
       writeln('Поиск учеников, у которых совпадают имена и фамилии');
       while not eof(f) do begin
       read(f,s);
       k:=k+1;
       end;
 if k=0 then writeln('учеников, у которых совпадают имена и фамилии, в школе нет')
 else writeln('в школе', k,' учеников, у которых совпадают имена и фамилии');
 writeln('------------------------------------------------------');
 close(f);
 end.