Scusami ho fatto un piccolo errore nella riga di codice:

codice:
 casuale:=random(filesize(fp))+1;
il "+1" non ci va!!!!! quindi tu scrivi

codice:
 casuale:=random(filesize(fp));