Обработка символьных данных сложной структуры

Student = record
    fio: String;
    bd: Integer;
    sex: String;
    phisic: Integer;   
    math: Integer;
    it: integer;
    ss: Real
end;

const fn = 'c:\group.stu';
      ft = 'c:\group.txt';
      gr = 'ЭТ3-94';
type student =
  record
    fio: string[100];
    bd: Integer;
    sex: string[8];
    group: string[20];
    phis, mat, it: integer;
    ss: real
  end;
var f: file of student;
    g: text;
    t: student;
    c: string;
    p: real;
    nf: boolean;
begin
  assign(f, fn);
  rewrite(f);
  with t do
    repeat
      writeln('Введите данные о студенте:');
      repeat
        writeln('Фамилия, имя, отчество (не более 100 символов):');
        readln(c)
      until length(c) <= 100;
      fio := c;
      write('Год рождения: ');
      readln(bd);
      repeat
        write('Пол (не более 8 символов): ');
        readln(c)
      until length(c) <= 8;
      sex := c;
      repeat
        write('Название группы (не более 20 символов): ');
        readln(c)
      until length(c) <= 820;
      group := c;
      write('Оценка по физике: ');
      readln(phis);
      write('Оценка по математике: ');
      readln(mat);
      write('Оценка по информатике: ');
      readln(it);
      write('Размер стипендии: ');
      readln(ss);
      write(f, t);
      write('Следующий студент? ');
      readln(c);
      if length(c) = 0 then c := 'Y'
    until c[1] in ['N', 'n', 'Н', 'н', '0'];
  write('Прибавка к стипендии за 5 по физике? ');
  readln(p);
  reset(f);
  assign(g, ft);
  rewrite(g);
  writeln(g, 'Студенты группы ', gr, ', имеющие "5" по физике:');
  nf := true;
  while not eof(f) do
    with t do
      begin
        read(f, t);
        if (group = gr) and (phis = 5)
          then begin
            nf := false;
            ss := ss + p;
            seek(f, filepos(f) - 1);
            write(f, t);
            writeln(g);
            writeln(g, fio);
            writeln(g, 'Год рождения: ', bd);
            writeln(g, 'Оценка по физике: ', phis);
            writeln(g, 'Оценка по математике: ', mat);
            writeln(g, 'Оценка по информатике: ', it);
            writeln('Размер стипендии: ', ss:0:2)
          end
      end;
  if nf then writeln(g, 'Таких студентов нет.');
  close(f);
  close(g);
  writeln('Результат работы программы в файле ', ft);
  writeln('Нажмите <Enter> для завершения работы.');
  readln
end.