allora, per risolvere il tuo problema hai bisogno di due funzioni predefinite da pascal, che sono "seek" e "filesize".

La funzione Filesize restituisce il numero di record presenti nel file e la sua sintassi è la seguente:
var num_record:integer;
begin
[...]
[...]
num_record:=filesize(words.dat);

Invece la funzione seek si posiziona nel file words.dat sul record numero n (nell'utilizzare questa funzione bisogna tenere conto che la numerazione parte da zero quindi se nel file ci sono 9 record la funzione restituisce il numero 8!!!).

La risposta al tuo problema è la seguente:
var a:integer;
begin
randomize;
a:=random(filesize(words.dat));
seek(words.dat,a);
{e poi a questo punto puoi iniziare a far stampare a video il file casuale trovato!! )

spero di essere stato chiaro, se hai ancora problemi dimmelo pure che sono felice di aiutarti!! ciao :gren: