Ojeándolo un poco por encima, veo un bucle peligroso, aunque si dices que te funciona... :
For I:=1 to N do ...
La variable N no logro encontrar dónde la asignas, se supone que contiene el número de números almacenados dividido entre 3; puesto que estás leyendo el archivo de disco, deberías saber en primer lugar cuántos registros vas a leer.
|