Л-23 задача-3

type
  baza = record //переменная содержащая (n-ное) кол-во пар (фамилия+группа+предмет+оценка)
    fam: string[10]; //10 - длинна фамилии (можно изменить)
    gruppa: string[10]; //10 - длинна группы (можно изменить)
    predmet:array[1..10] of string[10]; //длинна массива предметов
    ozenka: array[1..10] of string[1]; //длинна массива оценок
  end;


var a:array[1..100]of baza;
    f:file of baza;
    n,i, j,k,m,fl: integer;

 begin
  assign(f,'C:\Users\Public\Documents\Ses.txt');
  rewrite(f);
  writeln('Введите количество студентов: ');
  readln(n);
  writeln('Введите количество предметов: ');
  readln(m);
  writeln;
for i := 1 to n do
begin
writeln('Данные ',i,' студента:');
  write('Фамилия: ');
  readln(a[i].fam);

  write('Группа: ');
  readln(a[i].gruppa);

  for j:= 1 to m do begin
    write(j,' Предмет: ');
    readln(a[i].predmet[j]);

    write('  Оценка: ');
    readln(a[i].ozenka[j]);
    end;
    write(f,a[i]);
writeln;
end; //ввод всех данных
close(f); //закрытие файла
reset(f);//начинаем с начала
k:=0;
fl:=0;
writeln;
writeln('Студенты,имеющие задолженность хотя бы по одному предмету:');
for i:= 1 to n do begin
  read(f,a[i]);
  for j:= 1 to m do begin
    if a[i].ozenka[j]='2' then begin k:= 1; fl:=1 //проход по массиву даных из файла,если встречается двойка, то значение 1 переменным k (кол-во) и fl (есть ли студент с задолжнстью)
    end;
  end;
    if k=1 then begin writeln(a[i].fam,', из группы ',a[i].gruppa); //вывод студента с задожностю
    k:=0;
    end;
  end;
  if fl=0 then writeln('Отсутствуют');//если задолжнстей нет (fl = 0) вывести сообщение об этом
close(f); //закрытие файла
end.