[jorgegetafe]

No me dejan usar eso...

Ya se porque fallaba, yo leia 5 veces y tenia introducido 5 personas, con esto no falla.

gracias una vez mas.

Código Delphi [-]
 
WHILE NOT EOF (grabado) DO
      BEGIN
        read (grabado, a[i]);     (* ERROR= "project raised exception class EinOutError with message 'read beyond end of file' *)
        i:=i+1;
      END;