Pascal/Turbo Pascal - Proble de fichero tipeado

Hola. Estoy estudiando informatica de sistemas y tengo unas dudas en cuanto a ficheros de acceso directo. Lo primero es saber si un archivo o fichero tipeado es considerado uno de acceso directo. Tambien me gustaria como se hace para leer una parte de un archivo de acceso directo. He echo un programilla para ver si conseguia sacar algo, pero el programa que he echo no hace lo que esperaba. Se supone que tendria que introducirle un texto hasta que introdujeras una linea en blanco y luego te lo escribiera denuevo, pero no escribe nada, paso el codigo:

PROGRAM DOformatobiblio;

USES wincrt;

TYPE
tlinea=STRING;
tlimite=STRING[50];
tpoesia=RECORD
titulo:tlimite;
autor :tlimite;
cuerpo:tlinea;
end;
VAR
archivo :FILE OF tpoesia;
poesia :tpoesia;
linea :tlinea;

BEGIN
assign(archivo,'c:\biblio.dat');
rewrite(archivo);

Writeln('Introducca el cuerpo de su poesia:');

Repeat
readln(linea);
poesia.cuerpo:=linea;
write(archivo,poesia);
Until linea='';

seek(archivo,filesize(archivo));
read(poesia.cuerpo,linea);
writeln(linea);

close(archivo);
END.

Por ultimo me gustaria saber si podria guardar mas varias poesias (con titulo, autor y cuerpo) en el archivo biblio.dat o solo me serviria para una.

Gracias y un saludo.