Per aprire un file in lettura sono messo così

codice:
   assign(fp,'words.dat');  { apro il file }
   reset(fp);               { apro in lettura }
   close(fp);               { chiusura flusso }
mi servirebbe sapere come fare a conoscere il numero di linee del file words.dat e di riuscire a leggerne 1a casuale (con seek mi pare).

ciao grazie