FUNCTION Existe (VAR fichero:TFichero; nombre:string):Boolean;
BEGIN
Assign(fichero,nombre);
{$I-}
RESET(fichero);
{$I+}
Existe:=(IOResult=0);
END;
PROCEDURE CargarDatos (VAR m:Tm);
VAR
ficher:TFichero;
nombre:STRING;
BEGIN
writeln('nombre del archivo, incluyendo direccion y formato');
readln(nombre);
IF Existe(ficher,nombre) THEN
BEGIN
Assign(ficher,nombre);
RESET(ficher);
read(ficher,m);
CLOSE(ficher);
END
ELSE
writeln('No existe');
END;