Ho alcuni problemi
tu hai risposto bene ma ho difficolta' ad applicare le nozioni date

codice:
...
var fp:text;
var nrecord:integer;
var word:string[100];
...
begin
   assign(fp,'words.dat');  { apro il file }
   reset(fp);               { apro in lettura }
   nrecord:=random(filesize('words.dat'));
   seek(fp,nrecord);
   writeln(fp);
   close(fp);               { chiusura flusso }
end;
...
non so come agire, il compilatore dà errore