Паскаль Структура хранения и ведения следующих данных

Структруа студентов:
type tStudent = record Z : Word; FIO : String[10]; end;
Структура для дерева
type tRecs = ^aRecs;
aRecs = record S : tStudent; Next, Pred : tRecs; end;
Описание структуры:
var First, Posl : aRecs; { Ссылки на первого и последнего студента в списке }
Инициализация программы:
First := nil; Posl := nil;
Включение нового:
procedure Include(Student : tStudent);
var Tmp : tRecs;
begin { нового добавляем в конец списка }
New(Tmp);
Tmp.S := Student; Tmp.Next := nil;
if First = nil then begin First := Tmp; Posl := Tmp; Tmp.Pred := nil; end
else begin Posl.Next := Tmp; Tmp.Pred := Posl; Posl := Tmp; end;
end;
Сохранение в файл:
procedure Save(Name : String);
var F : File of tStudent;
Cur : tRecs;
begin
Assign(F, Name); Rewrite(F);
Cur := First;
while Cur <> nil do
begin
Write(F, Cur^.S);
Cur := Cur^.Next;
end;
Close(F);
end;
Чтение из файла:
procedure Save(Name : String);
var F : File of tStudent;
S : tStudent;
begin
Assign(F, Name); Reset(F);
while Not EOF(F) do
begin
Read(F, S):
Include(S);
end;
Close(F);
end;
Печать списка:
procedure PrintS;
var Cur : tRecs;
begin
Cur := First;
while Cur <> nil do
begin
WriteLn('N ', Cur^.S.Z, ' ФИО ', Cur^.S.FIO);
Cur := Cur^.Next;
end;
end;
Как-то так!