{A ver si esto es lo que quieres}
program cajero;
uses
crt, dos;
type
cliente = record
codigocli : longint;
numcuenta : longint;
deposito : real;
saldo : real;
retiro : real;
salida : real;
end;
var
cuenta : cliente;
f : file of cliente;
procedure guardacliente(c : cliente);
begin
assign(f,'Cajero.dat');
{$I-} reset(f); {$I+} if ioresult <> 0 then
begin
rewrite(f);
seek(f,0);
write(f,c);
close(f);
end
else
begin
seek(f,filesize(f));
write(f,c);
close(f);
end;
end;
procedure entradacuenta;
begin
clrscr;
writeln(' **** Entrada Cuenta Nuevo Cliente ****'); writeln;
write(' Codigo Cliente = '); readln(cuenta.codigocli);
write(' Numero Cuenta = '); readln(cuenta.numcuenta);
write(' Deposito = '); readln(cuenta.deposito);
cuenta.saldo := cuenta.deposito;
cuenta.retiro := 0;
cuenta.salida := 0;
writeln;
writeln(' Pulse Una Tecla'); readkey;
end;
procedure sacadelcajero;
var
ncuent, nclave : longint;
vu : longint;
imp : real;
encont : boolean;
begin
clrscr;
write(' Entre Num. Cuenta : '); readln(ncuent);
write(' Entre Clave : '); readln(nclave);
assign(f,'Cajero.dat');
{$I-} reset(f); {$I+} if ioresult <> 0 then
begin
writeln(' Error De Archivo Pulse Una Tecla'); readkey;
end
else
begin
encont := false;
vu := 0;
repeat
seek(f,vu);
read(f,cuenta);
if (cuenta.codigocli = nclave) and (cuenta.numcuenta = ncuent) then
begin
encont := true;
end
else
vu := vu + 1;
until (encont = true) or (vu > filesize(f) - 1);
if encont = true then
begin
clrscr;
writeln(' Datos Correctos '); writeln;
write(' Entre Inporte : '); readln(imp);
if imp <= cuenta.saldo then
begin
writeln(' Serbicio Correcto '); cuenta.retiro := imp;
cuenta.salida := imp;
cuenta.saldo := cuenta.saldo - imp;
seek(f,vu);
write(f,cuenta);
close(f);
writeln;
writeln(' Pulse Una Tecla'); readkey;
end
else
begin
writeln(' Su Saldo Actual No Cubre Lo Pedido'); writeln(' Pulse Una Tecla'); close(f);
readkey;
end;
end
else
begin
writeln(' Lo Siento Sus Datos Son Erroneos Intentelo De Nuevo '); writeln(' Pulse Una Tecla'); close(f);
readkey;
end;
end;
end;
begin
clrscr;
entradacuenta;
guardacliente(cuenta);
sacadelcajero;
end.
Crear cuenta