Pascal/Turbo Pascal - Ayuda con archivos...

Hola, hice este programa para tratar de entender mejor el tema de archivos, pero me queda dando de forma infinita la parte que muestra la edad. He aquí el programa:


uses crt;

type
hola= record
edad:integer;
nomb:string;
end;
al= file of hola;
var
alu:al;
reg:hola;
resp:char;
begin
assign(alu, 'C:\alumnos.dat');
reset(alu) ;
readln(reg.edad);
while not (eof(alu)) do
begin
writeln(reg.edad);
end;
close (alu);
repeat until keypressed;
end.


Por qué me pasa esto? gracias.

{Mira las modificaciones que te pongo}

uses crt;

type
hola = record
edad:integer;
nomb:string;
end;
al = file of hola;
var
alu : al;
reg : hola;
resp : char;

begin
assign(alu, 'C:\alumnos.dat');
{$I-} reset(alu) ; {$I+}
if ioresult <> 0 then
halt(1);
seek(alu,0);
read(alu,reg);
writeln(reg.edad);
close (alu);
repeat until keypressed;
end.

{Leerás el registro numero 0 y de el presentaras la edad si quieres mas coloca un
repeat como esto b es una variable longint

b := 0;
repeat
seek(alu,b);
read(alu,reg);
writeln(reg.edad);
repeat
writeln('Pulsa [Enter] o [Esc] Salir');
resp := readkey;
until (resp = #13) or (resp = #27);
b := b + 1;
until (b > filesize(alu) - 1) or (resp = #27) ;
close (alu);
con esto veras todo el archivo}

Gracias por la ayuda!