Вывод на экран содержимого типизированного файла - Turbo Pascal

Формулировка задачи:

Здравствуйте. Кто-нибудь может помочь вывести содержимое типизированного файла на экран? вот программа, которую необходимо переделать и вывести все данные типизированного файла на монитор:

program Student_list;
label 1,2;
type Tstud=record
family:string[30];
name:string[15];
patr:string[20];
group: string[5];
course:integer;
subject:string[30];
mark:integer;
end;
var
rstud:tstud;
fstud:file of tstud;
ch:char;
begin
assign(fstud,'students.rec');
rewrite (fstud);
if ioresult <> 0 then
begin
writeln ('Ошибка открытия выводимого файла ');
goto 2 end;
repeat
with rstud do
begin write ('Фамилия (30)');
readln (family);
write ('Имя (15):' ); readln (name);
write ('Отчество(20):');
readln (patr);
write ('Группа(5):'); readln(group);
write ('Курс:'); readln (course);
write ('Предмет (20):');readln (subject);
write ('Оценка:'); readln (mark);
end;
write (fstud,rstud);
if ioresult <> 0 then
begin writeln ('Ошибка записи в файл');
goto 1 end;
write ('Продолжить ввод данных (д/н?'); readln (ch);
until ch='н;
1:close (fstud);
2:end.

Решение задачи: «Вывод на экран содержимого типизированного файла»

Листинг программы

while not eof(f) do begin
  read(f,s);
  with s do begin
    writeln('family: ',family);
    writeln('name: ',name);
    writeln('patr: ',patr);
    writeln('group: ',group);
    writeln('course: ',course);
    writeln('subject: ',subject);
    writeln('mark: ',mark);
    writeln('--------------');
  end;
end;

Объяснение кода листинга программы

В цикле while выполняется чтение данных из файла f до тех пор, пока не достигнут конец файла (EOF).
Строка s инициализируется считываемыми данными из файла.
С помощью оператора with переменная s используется для записи данных на экран.
Выводятся данные из переменной s, разделенные символом ':'.
Каждая строка вывода содержит данные из переменных family, name, patr, group, course, subject и mark.
После вывода каждой строки выводится символ '-'.
Вывод завершается после достижения конца файла (EOF).