работа с файлами

[adaptes]

помогите пожалуйста! надо подготовить данные об абитуриентах, поступающих в институт. Информацию о каждом абитуриенте оформить в виде записи, содержащей следующие поля:
1. ФИО.
2. Год рождения.
3. Год окончания школы.
4. Оценки в аттестате.
5. Признак - нуждается ли в общежитии.
6. Оценки вступительных экзаменов.
Разработать программу записи подготовленных данных во внешний файл и программу обработки созданного внешнего файла.(delphi)
вот я составил, но она не работает у меня

program lab11{вариант 5};

{$APPTYPE CONSOLE}
uses
  SysUtils;

type data=record
          fio:string[30];
          godr,godo:integer;
          ates:record
               mat,fiz,rus:integer;
               end;
          haus:boolean;
          ekz:record
              mat,fiz,rus:integer;
              end;
          end;
var stu:data;
    files:file of data;
    keys:char;
begin
 assign(files,'D:\атпп-13\data.txt');
 rewrite(files);
  repeat;
  writeln('      вводим данные об абитуриенте');
  write('фамилия имя отчество..');readln(stu.fio);
  write('год рождения..........');readln(stu.godr);
  write('год окончания школы...');readln(stu.godo);
  writeln('      оценки в аттестате');
  write('математика.....');readln(stu.ates.mat);
  write('физика.........');readln(stu.ates.fiz);
  write('русский язык...');readln(stu.ates.rus);
  writeln('нуждается в общежитии (1-да/2-нет)');

  if keys='1' then stu.haus:=true
            else stu.haus:=false;
  writeln('      оценки на вступительных экзаменах');
  write('математика.....');readln(stu.ekz.mat);
  write('физика.........');readln(stu.ekz.fiz);
  write('русский язык...');readln(stu.ekz.rus);
  write(files,stu); 

  writeln('      данные об абитуриенте введены');
  writeln('1-добавить данные');
  writeln('2-выход');
  writeln('      (нажмите 1 или 2)');
  
 until keys='2';
 close(files);
end.

[Serge_Bliznykov]

hint. перед копированием текста включите русскую раскладку на клавиатуре, возможно, это поможет.

[adaptes]

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

hint. перед копированием текста включите русскую раскладку на клавиатуре, возможно, это поможет.

исправил. подскажите что тут не так?

[Serge_Bliznykov]

пропущен ввод keys:

 writeln('нуждается в общежитии (1-да/2-нет)');
  readln(keys);
  if keys='1' then stu.haus:=true
            else stu.haus:=false;
  writeln('      оценки на вступительных экзаменах');
  write('математика.....');readln(stu.ekz.mat);
  write('физика.........');readln(stu.ekz.fiz);
  write('русский язык...');readln(stu.ekz.rus);
  write(files,stu);

  writeln('      данные об абитуриенте введены');
  writeln('1-добавить данные');
  writeln('2-выход');
  writeln('      (нажмите 1 или 2)');
  readln(keys);

 until keys='2';
....

а в остальном - более-менее.

p.s. для типизированных файлов, как в вашем случае, лучше избегать общепринятых расширений, лучше вместо data.txt дать файлу другое расширение, например, data.bin. Компьютеру то всё равно, а вот пользователей это расширение может вводить в заблуждение!