Программа компилируется, но не запускается

program kursovoi;
uses data_input;
var  str: leaner;
BEGIN // НАЧАЛО ТЕЛА ОСНОВНОЙ ПРОГРАММЫ
  INPUT;
END // КОНЕЦ ТЕЛА ОСНОВНОЙ ПРОГРАММЫ

UNIT data_input;
 
INTERFACE
uses crt;
const n=5;
  type leaner = record;
                 fam     : string[50]; //фамилия ученика
                 name    : string[50]; //имя
                 school  : integer;   //№ школы
                 predmet : array [1..n] of string; //предмет
                 ball    : array [1..n] of integer; //количество набранных баллов на ЕГЭ
                end;
  procedure  INPUT; //ВВОД ДАННЫХ
 
 
 
IMPLEMENTATION
 
   //ВВОД ДАННЫХ
PROCEDURE INPUT;
var s: leaner;
    f: file of leaner;
    i: integer;
    g, q: char;
Begin
  //проверка на существование файла и его создание
  
  if not (FileExists ('Список учеников.txt')) then
    begin
      textcolor(4);
      write('Файл не существует!');
      textcolor(0);
    end
  else
    write ('Здравствуйте, вы хотите создать новый файл - (Y) или открыть уже имеющийся - (N)?');
    readln(g);
    if (g='y') or (g='Y') then
      begin
        assign(f,'Список учеников.txt');
        rewrite (f);
      end
    else
      begin
        assign(f,'Список учеников.txt');
        reset(f);
      end;
  
  //ввод данных о человеке
  i:=1;
  repeat
    write('Введите фамилию ученика: ');
    readln(s.fam);
    write('Введите имя ученика: ');
    readln(s.name);
    write('Введите № школы ученика: ');
    readln(s.school);
    writeln('Введите наименования предметов, которые сдавал ученик (5 предметов): ');
    for i:=1 to n do
      readln( s.predmet[i] );
    writeln('Соответственно введите количество набранных баллов на ЕГЭ учеником (если ученик не сдавал какой-либо экзамен поставьте 0): ');
    for i:=1 to n do
      readln(s.ball[i]);
    write(f,s);
    write('Вы закончили ввод данных (y/n)?');
    readln(q);
  until (q='n') or (q='N');
  close(f);
End;
 
 
 
 
BEGIN  // начало инициирующей части
END.    // конец инициирующей части