PABCSystem.pas(4099) : Ошибка времени выполнения: Ссылка на объект не указывает на экземпляр объекта - Pascal ABC

Формулировка задачи:

Написал программу к заданию Распечатать фамилии тех учеников, которые не получили ни одной тройки за последнюю четверть. В каких классах учатся эти ученики? Каков их средний балл? Вот сама программа
program lab7z8;
type 
     stud = record
     fam:string[20];
     fizika:integer;
     matematika:integer;
     biologiya:integer;
     informatika:integer;
     klas:string;
end;
var
  f:text;
  mas:array[1..20] of stud;
  i,n:integer;
  sr:real;
begin
    assign(f,'C:\prog\f.txt');
    rewrite(f);
    close(f);
    assign(f,'C:\prog\f.txt');
    append(f);
    writeln('Заполните базу данных:');
    write('Колличество учеников ');
    readln(n);
    for i:=1 to n do
begin
    write('Фамилия ');
    readln(mas[i].fam);
    write('Класс ');
    readln(mas[i].klas);
    write('Оценка по математике ');
    readln(mas[i].matematika);
    write('Оценка по физике ');
    readln(mas[i].fizika);
    write('Оценка по биологии ');
    readln(mas[i].biologiya);
    write('Оценка по информатике ');
    readln(mas[i].informatika);
end;
    writeln;
    writeln('не получили ни одной тройки за последнюю четверть:');
    for i :=1 to n do
begin
    if (mas[i].matematika>3) and (mas[i].fizika>3)
    and (mas[i].biologiya>3) and (mas[i].informatika>3) then
    begin
    sr:=(mas[i].matematika+mas[i].fizika+ mas[i].biologiya+mas[i].informatika)/4;
    writeln(' Фамилия  ',mas[i].fam);
    write(f,' Фамилия  ',mas[i].fam);
    writeln(' Класс  ',mas[i].klas);
    write(f,' Класс  ',mas[i].klas);
    writeln(' Средний балл  ',sr:2:2);
    writeln(f,' Средний балл  ',sr:2:2);
    writeln; 
    close(f);
end;
end;
  readln;
end.
Проблема в том , что при выполнении выдает PABCSystem.pas(4099) : Ошибка времени выполнения: Ссылка на объект не указывает на экземпляр объекта. Подскажите в чем проблема

Код к задаче: «PABCSystem.pas(4099) : Ошибка времени выполнения: Ссылка на объект не указывает на экземпляр объекта - Pascal ABC»

textual
program lab7z8;
type
     stud = record
     fam:string[20];
     fizika:integer;
     matematika:integer;
     biologiya:integer;
     informatika:integer;
     klas:string;
end;
var
  f:text;
  mas:array[1..20] of stud;
  i,n:integer;
  sr:real;
begin
assign(f,'f.txt');
rewrite(f);
writeln('Заполните базу данных:');
write('Колличество учеников ');
readln(n);
for i:=1 to n do
 begin
  write('Фамилия ');
  readln(mas[i].fam);
  write('Класс ');
  readln(mas[i].klas);
  write('Оценка по математике ');
  readln(mas[i].matematika);
  write('Оценка по физике ');
  readln(mas[i].fizika);
  write('Оценка по биологии ');
  readln(mas[i].biologiya);
  write('Оценка по информатике ');
  readln(mas[i].informatika);
 end;
writeln;
writeln('не получили ни одной тройки за последнюю четверть:');
for i :=1 to n do
 begin
  if (mas[i].matematika>3) and (mas[i].fizika>3)
  and (mas[i].biologiya>3) and (mas[i].informatika>3) then
   begin
    sr:=(mas[i].matematika+mas[i].fizika+ mas[i].biologiya+mas[i].informatika)/4;
    writeln(' Фамилия  ',mas[i].fam);
    write(f,' Фамилия  ',mas[i].fam);
    writeln(' Класс  ',mas[i].klas);
    write(f,' Класс  ',mas[i].klas);
    writeln(' Средний балл  ',sr:2:2);
    writeln(f,' Средний балл  ',sr:2:2);
    writeln;
   end;
  end;
close(f);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

13   голосов, оценка 4.385 из 5


СДЕЛАЙТЕ РЕПОСТ