Ok ora ho capito tutto!!!! Se non sbaglio la soluzione al tuo problema è questa!!!

codice:
TYPE worder : RECORD 
                parolaimpiccato:string;
              END;

VAR fp:file of worder;     { variabile di tipo file }
    parola : worder;       { in questa variabile pascal caricherà la
                             parola letta dal file }
    casuale:integer;       { numero del record casuale }
...
begin
   assign(fp,'words.dat');  { apro il file }
   reset(fp);               { apro in lettura }
   casuale:=random(filesize(fp))+1;
   seek(casuale,fp);
   read(fp,parola);
   writeln(parola.parolaimpiccato);
   close(fp);               { chiusura flusso }
end;
Ora non dovresti avere più problemi!!! :quipy: