Исходя из условия задачи, определить структуру комбинированного типа данных и типа полей

type
  book = Record 
    fam: String; 
    pred: String; 
    st: Byte; 
    nagr: Byte; 
  end;
 
var
  x: book; 
  i, n: Integer;
  g, f: text;
 
begin
  assign(f, 'f.txt');
  rewrite(f);
  assign(g, 'g.txt');
  rewrite(g);
  Writeln('Введите кол-во учителей: ');
  Readln(n);
  for i := 1 to n do 
  begin
    Write('Фамилия учителя: ');
    Readln(x.fam);
    Write('Предмет: ');
    Readln(x.pred);
    Write('Стаж: ');
    Readln(x.st);
    Write('Нагрузка: ');
    Readln(x.nagr);
    Writeln(f, x.fam); 
    Writeln(f, x.pred);
    Writeln(f, x.st); 
    Writeln(f, x.nagr); 
  end; 
  close(f);
  Writeln('Список тех учителей школы, которые преподают математику и информатику:'); 
  reset(f);
  while not eof(f) do
  begin
    Readln(f, x.fam); 
    Readln(f, x.pred);
    Readln(f, x.st); 
    Readln(f, x.nagr); 
    if (x.pred = 'Математика') or (x.pred = 'Информатика') Then 
    begin
      Writeln(x.fam); 
      Writeln(x.st); 
      Writeln(x.nagr); 
      Writeln('--------'); 
      Writeln(g, x.fam); 
      Writeln(g, x.st); 
      Writeln(g, x.nagr); 
      Writeln(g, '--------'); 
    end; 
  end;
  close(f);
  close(g);
end.