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

[Таня Хорошая]

Доброго времени суток!
Очень нужна помощь по Паскалю.
Как и у многих, сортировка таблицы по нескольким критериям (используя record)
То бишь..

Необходимо создать таблицу, в которой будут записаны даты, фамилии и пропуски учащихся определенной группы. Далее программа должна вывести на экран диалоговое окно, в котором будет несколько вопросов:
"Хотите ли вы просмотреть информацию и пропуски учащихся?(y/n)"
"Хотите ли вы редактировать информацию?(y/n)"
И чтоб можно было смотреть информацию о пропусках за один определенный день и тому подобное.

Пробовала разобраться сама, искала похожее, но не получается
Люди добрые, помогите...

[ZX Spectrum-128]

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

Начните с обьявления данных, например так:

Type
  Progul=record 
     Date:string[10];
     Fio:string[128];
     Kol:integer;
  End;

Есть хорошая статья:
http://www.pascal.helpov.net/index/p...rd_programming

[Таня Хорошая]

Спасибо за статью, очень помогла.
Я написала код для записи файлов, но почему-то ничего в файл не записывается, он пуст
Что я сделала не так?

Program Tanya;
Type
  Progul=record
     Date:string[10];
     Fio:string[128];
     Kol:string;
  End;
var student: array [1..2] of progul;
    i,m:integer;
    f:text;
    s:string;
begin
assign(f,'e:\liudi.txt');
  rewrite(f);
    for i:=1 to 32 do
    begin
      writeln('vvedite imea i familiu');
      readln(student[i].Fio);
        for m:=1 to 31 do
        begin
          writeln('vvedite datu');
          readln(student[i].Date);
          writeln('vvedite kol-vo propuskov');
          readln(student[i].Kol);
          end;
    end;
    readln(s);
    writeln(f,s);
    close(f);
  readln;
end.

[ZX Spectrum-128]

Program Tanya;
Type
  Progul=record
    Date:string[10];
    Fio:string[128];
    Kol:integer;
  End;
var
  student: progul;
  i,m:integer;
  f:file of progul;
  s:string;
begin
  // создание файла и запись в него данных
  m:=2;
  assign(f,'liudi.dat');
  rewrite(f);
  for i:=1 to m do
    begin
      writeln('vvedite imea i familiu');
      readln(student.Fio);
      writeln('vvedite datu');
      readln(student.Date);
      writeln('vvedite kol-vo propuskov');
      readln(student.Kol);
      write(f,student);
    end;
  close(f);
  // открытие файла и вывод данных
  reset(f);
  while not eof(f) do
    begin
      read(f,student);
      write(student.Fio); write(' '); write(student.date); write(' ');
      writeln(student.kol);
    end;
  close(f);  
  readln;
end.

[Таня Хорошая]

Благодарю