const
NombreArch='Puntaje.dat';
type
TPuntaje=record
puntos: integer;
nombre: string[20];
end;
TArchPuntaje=File of TPuntaje;
var
PutajeActual: TPuntaje;
procedure GuardarPuntos(Puntaje: TPuntaje);
var
Arch: TArchPuntaje;
begin
Assign(Arch,NombreArch);
Rewrite(Arch); { Recrea el archivo }
Write(Arch,Puntaje);
Close(Arch);
end;
Procedure LeerPuntos(var Puntaje: TPuntaje);
var
Arch: TArchPuntaje;
begin
Assign(Arch,NombreArch);
Reset(Arch); { Abre para lectura }
Read(Arch,Puntaje);
Close(Arch);
end;
begin
LeerPuntos(PuntajeActual); { Lee los puntos guardados }
...
{ some code here... }
...
GuardarPuntos(PuntajeActual);
end.