Запись данных в файл и вывод данных

 Schedule;
 
type
  
  NameofSubj = record
    Subj: string[30]; // название предмета
    Time: string[13]; // время начала и конца пары   
    Teacher: string[30]; // Фамилия и иницалы преподавателя 
    LectHall: string[20]; // Корпус и аудитория
  end;
  
  ScheduleEvenOdd = record
    DoW: string[11]; // день недели.
    CountCoup: integer; // кол-во пар  
    Subject: array [1..10] of NameofSubj;
  end;
 
label M1;// Объявили метку M
var
  ScheduleDay: array [1..7] of ScheduleEvenOdd; //массив
  N, i, j, vopros, vybor: integer; //кол-во дней и пересчет элементов массива.
  f: file of ScheduleEvenOdd;
 
 
begin
  
  M1: writeln('Выберите действие: ');
  writeln('0 - Выход ');
  writeln('1 - Ввод данных расписания нечетной недели');
  writeln('2 - Ввод данных расписания четной недели ');
  writeln('3 - Вывод расписания нечетной недели ');
  writeln('4 - Вывод расписания четной недели ');
  writeln('5 - Редактирование расписания ');
  Readln(vybor);
  // Проверяем, что введен допустимый вариант выбора
  if (vybor < 0) or (vybor > 5) then begin writeln('Такого действия не существует !'); goto M1; end; 
  case vybor of 
    0:  
      begin// 0 - Выход из программы
        writeln('Выходим из программы .... GoodBye !');
        exit;
      end;
    1:
      begin
        writeln('Введите количество учебных дней в неделю = '); 
        readln(N); // ввели количество дней.
        if (N > 6) then begin writeln('Максимум 6 учебных дней !'); goto M1; end; 
        for i := 1 to N do
          with ScheduleDay[i] do
          
          begin
            writeln('Введите день недели: ');
            readln(DoW); // ввели день недели.
            writeln('Введите количество пар: ');
            readln(CountCoup); // ввели количество пар.
            j := 1;
            repeat
              writeln('Введите время начала и конца пары: (пример: 08:00 - 09:30)'); 
              readln(Subject[j].Time); // ввели время начала и конца пары.
              writeln('Введите название предмета: '); 
              readln(Subject[j].Subj); // ввели название предмета.
              writeln('Введите фамилию и инициалы преподавателя: '); 
              readln(Subject[j].Teacher); // ввели ФИО.
              writeln('Введите корпус и аудиторию пары: '); 
              readln(Subject[j].LectHall); // ввели корпус и аудиторию. 
              inc(j);
            until j - 1 = ScheduleDay[i].CountCoup;
          end;
        writeln('Хотите сохранить эти данные в файле: 0-Нет,1-Да ?');
        readln(vopros);
          //  Проверка результатов вопроса
        if vopros <> 1
          then goto M1
        else 
        //  Запишем введённые данные в файл
          assign(f, 'Odd.Schedule');
        rewrite(f);
        for i := 1 to N do
          for j := 1 to ScheduleDay[i].CountCoup do
            write(f, ScheduleDay[j]);
        
        close(f);
        writeln('В файл Odd.Schedule записано расписание нечетной недели.');
        goto M1;
      end;
    3: 
      begin// 2 - Вывод данных в виде таблицы
        assign(f, 'Odd.Schedule');
        reset(f); // Шаг 3.
        
        // Шаг 4. Обработка файла
        writeln('В файле хранится информация о ', N, ' концертах');
        for i := 1 to N do
          read(f, ScheduleDay[i]);
        N := filesize(f);
        // Вывод в виде таблицы
        writeln('====================================================================');
        writeln('=                          Нечетная неделя                         =');
        writeln('====================================================================');
        for i := 1 to N do
          with ScheduleDay[i] do
            writeln(i:4, ScheduleDay[i].DoW:21, ScheduleDay[i].CountCoup:21);
        writeln('====================================================================');
        close(f); // Шаг 5.
      end;
  
  
  
  
  
  
  
  
  
  end;
  
  
  
  
end.

        for i := 1 to N do
          read(f, ScheduleDay[i]);
        N := filesize(f); // Перенести эту строку выше, перед использованием переменной N

type T = array[1 .. 100] of integer;
// ...
writeln(sizeof(T)); // Как думаете, что выведет? 100*sizeof(integer)?