файловый тип данных

[ksenija15reg]

Создайте файл, содержащий информацию об учениках:фамилию, класс, количество пропущенных часов. найти ученика с наибольшим количеством пропусков

program qq;
uses crt;
type
 pupil = record;
 fam:string;
 kl:1..11;
 ch:integer;
 end;
var
f8:file of pupil;
propusk:array [1..20] of pupil;
i,n,f,max:integer;
begin
clrscr;
assign(f8,'inp.txt');
rewrite(f8);
write('vvedite kol-vo uchenikov');
read(n);
 for i:=1 to n do
  begin
   write('familia: ');
   read(propusk[i].fam);
   write('klass: ');
   read(propusk[i].kl);
   write('kol-vo chasov: ');
   read(propusk[i].ch);
  end;
writeln('bolshe vsego propuskov:');
 read(f8);
 for i:=1 to n do
  begin
  max:=-1000;
   if propusk[i].ch > max then max:=propusk[i].ch;
  end;   writeln(propusk[i].fam,', klass ',propusk[i].kl);
  close(f8);
readkey;
end.

[ZX Spectrum-128]

Ошибка в 4-й строке.

[ksenija15reg]

Сообщение от ZX Spectrum-128

Ошибка в 4-й строке.

я исправила ее, но мне программа не выдает ученика с наибольшим кол-вом пропусков

[ZX Spectrum-128]

Сообщение от ksenija15reg

я исправила ее, но мне программа не выдает ученика с наибольшим кол-вом пропусков

И не будет. Потому что вы файл не создаете. То есть не пишите в него

   write('familia: ');
   read(propusk[i].fam);
   write('klass: ');
   read(propusk[i].kl);
   write('kol-vo chasov: ');
   read(propusk[i].ch);
  Write(f8,propusk[i]); // записал в файл
  end;
Close(f8); //закрыл его
writeln('bolshe vsego propuskov:');

[type_Oleg]

for i:=1 to n do
  begin
   max:=-1000;
   if propusk[i].ch > max then max:=propusk[i].ch;
  end;   
writeln(propusk[i].fam,', klass ',propusk[i].kl);

Результат: нашли непонятное max (ибо это max постоянно становится равным - 1000) и выводите фамилию ... последнего в списке.
Надо искать индекс самого злостного прогульщика, а не количество его пропусков.

max:=1;
for i:=2 to n do
   if propusk[i].ch > propusk[max].ch then max:=i;
writeln(propusk[max].fam,', klass ',propusk[max].kl);

[Donald Ervin Knuth]

Сообщение от ksenija15reg

Создайте файл, содержащий информацию об учениках:фамилию, класс, количество пропущенных часов. найти ученика с наибольшим количеством пропусков

program laba_file;
type
 uchenik=record
       familia:string[25];
     klass_uch:1..11;
  propusk_chas:integer;
            end;
var
  f:file of uchenik;
  vr_mas: array[1..100] of uchenik;{-- буфер--}
  zap,max,i,n:integer;
begin
  assign(f,'C:\PABCWork.NET\klass.txt'); {-- заведем новый файл --}
  rewrite(f);      {-- если есть такой файл , удалим содержимое---}
  close(f);
 {-- теперь работает этим файлом---}

  writeln('Ведите количество учеников в классе');
  readln(n);
   reset(f);
  for i:=1 to n do
    begin
      writeln('Введите фамилию ',i,' ученик');readln(vr_mas[i].familia);
      writeln('Введите класс ',i,' ученик, в котором обучается');readln(vr_mas[i].klass_uch);
      writeln('Введите количество пропущенных часов ',i,' ученика');readln(vr_mas[i].propusk_chas);
      write(f,vr_mas[i]);
    end;{-- данные в буфере---}
    close(f);
      {-- запишем все  в файле klass.txt----}
     
      {---  теперь найдем  ученика с наибольшим количеством пропущенных часов---}
{--- предполгая что это нужно сделать непосредственно доставая данные из файла----------}
  max:=0;zap:=0; reset(f);
      while not Eof(f) do
        begin
          for i:=1 to n do
          begin
          Read(f,vr_mas[i]);
        if vr_mas[i].propusk_chas>max then 
                  begin  
                  zap:=i; {-- попался--}
                  max:=vr_mas[i].propusk_chas;
                  end;
          end;
        end;
        {writeln (zap);}
        {-- вывод результата на экран--}
        writeln('--------------------------------------------');
        writeln('Фамилия данного ученика=  ',vr_mas[zap].familia); 
        write('И он учится в ',vr_mas[zap].klass_uch); writeln(' классе');
        write('Пропустил всего = ',vr_mas[zap].propusk_chas);writeln(' часов');
    close(f);       
end.