{Mira la forma de escribir y leer registros en este ejemplo ponlo a tus valores de registro
y cambia lo que deseas y luego prueba}
uses
crt;
type
datosreg = record
id : integer;
passwor : word;
nombre : string[190];
contrase : string[200];
end;
var
tecla : char;
dat : datosreg;
f : file of datosreg;
cont : integer;
procedure gravarregistro;
begin
assign(f,'el nombre y extension que quieras');
{$I-} reset(f); {$I+}
if ioresult <> 0 then
begin
rewrite(f);
seek(f,0);
write(f,dat);
close(f);
end
else
begin
seek(f,filesize(f));
write(f,dat);
close(f);
end;
end;
procedure presentarregistro;
var
long, num : longint;
tec : char;
begin
assign(f,'el nombre y extension que quieras');
{$I-} reset(f); {$I+}
if ioresult <> 0 then
begin
writeln(' El Archivo Nombre : ','el nombre y extension que quieras');
writeln(' No Existe [Pulsa Enter]');
readln;
end
else
begin
long := filesize(f) - 1;
num := 0;
repeat
clrscr;
writeln(' Finaliza Tecla [ESC] Presentan Teclas [',chr(24),chr(25),']');
writeln;
seek(f,num);
read(f,dat);
writeln(dat.id);
writeln(dat.passwor);
writeln(dat.nombre);
writeln(dat.contrase);
tec := readkey;
if tec = #72 then
begin
num := num - 1;
if num < 0 then
num := 0;
end;
if tec = #80 then
begin
num := num + 1;
if num > long then
num := long;
end;
until tec = #27;
close(f);
end;
end;
begin
end.