вывод на экран содержимого типизированного файла. pascal

[fanat_iam]

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

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

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.

[Stilet]

assign(fstud,'students.rec');reset(fstud);
while not eof(fstud) do begin
 read(fstud,rstud);
 with rstud do begin
  writeln(family);
  writeln(name);
  и так остальные поля
 end;
end;
close(fstud);

Идея ясна?

[fanat_iam]

Сообщение от Stilet

assign(fstud,'students.rec');reset(fstud);
while not eof(fstud) do begin
 read(fstud,rstud);
 with rstud do begin
  writeln(family);
  writeln(name);
  и так остальные поля
 end;
end;
close(fstud);

Идея ясна?

Вполне. Спасибо большое.