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

[krikqwerty]

Здравствуйте у меня маленькая проблема.
Есть двухуровневая структура которую надо сохранить, как это сделать до меня пока не дойдет.
Сама структура состоит из массива

Chairs: array [1..n] of TChair;

Chairs-кафедры которые хранят имена и должности преподавателей
Сам массив статический как вы уже поняли,
под массивом находится стек(динамический) в котором как раз и хранятся эти имена, указателем на первое имя является

First:TTeacher;

имена и должности хранятся в

Fam:string;
Post:string;

а указатель на предыдущего преподавателя в

Prev:TTeacher;

Как мне правильно пройтись по всей структуре и сохранить ее? если кто знает пишите!