Pascal/Turbo Pascal - "disk read error"

CUANDO HAGO CORRER MI PROGRAMA ME LANZA UN ERROR "100 DISK READ ERROR" Y AUN NO LE ENCUENTRO LA EXPLICACION PORQUE TODAS LAS SENTENCIAS ESTAN EN ORDEN.......AGRADECERIA...SU AYUDA YA QUE NO ENTIENDO DE QUE SE TRATA......

quita el atributo de solo lectura de todos tus ficheros Turbo Pascal , si no se corrige con esto manda mas información ,que sentencia es la que te da el error
muestra el codigo, que SO utilizas etc , osea más informacion ya que no somos adivinos. Que yo sepa el error 100 corresponde a "no coincide la longitud de cadena" , nada que ver con el error mostrado. pero puede deberse a muchisimas
otras cosas .

SaluDOS
MICROPAIS

El error 100 es Disk Read Error efectivamente, y puede deberse a que estés tratando de leer una componente no existente en un archivo.

El error 100 detecta que lee mas longitud del fichero marcado.
intenta con esta instrucción filesize(f) - 1 que
te marcara el tamaño del fichero que lees menos 1 como seguridad f = definición del
fichero.
esto claro siempre que el fichero sea de registros no de texto.

ejemplo:
datos = record
x
x
end;

var
f : file of datos;