bueno hasta ahorita tengo montado lo siguiente del trabajo:
Program Agenda;
uses
crt;
const
ubicacion='d:\bp\bin\datos.txt';
type
datos_personales = record
nombre:string;
apellido: string;
edad:integer;
numero_telefonico: string[8];
numero_celular: string[8];
direccion: string;
fecha_cumpleanos:string;
email:string;
end;
var
opcion:char;
info: datos_personales;
arch: text;
nombreABuscar: string;
subNombre: string;
entro: boolean;
Procedure Imprimir;
begin
reset (arch);
clrscr;
while not eof (arch) do
begin
with info do
begin
readln(arch,nombre);
readln(arch,apellido);
readln(arch,edad);
readln(arch,numero_telefonico);
readln(arch,numero_celular);
readln(arch,direccion);
readln(arch,fecha_cumpleanos);
readln(arch,email);
writeln; writeln;
writeln(nombre,' ',apellido);
writeln('Tiene ',edad,'a¤os');
writeln('Tel‚fono: ',numero_telefonico);
writeln('Celular: ',numero_celular);
writeln('Direcci¢n: ',direccion);
writeln('Fecha de Cumplea¤os: ',fecha_cumpleanos);
writeln('E-mail: ',email);
writeln;
end;
end;
readkey;
close (arch);
end;
Procedure Ingresar;
begin
append (arch);
with info do
begin
writeln; writeln;
write('Digite el nombre: '); readln(nombre);
write('Digite el apellido: '); readln(apellido);
write('Digite la edad: '); readln(edad);
write('Digite el n£mero telef¢nico: '); readln(numero_telefonico);
write('Digite el n£mero celular: '); readln(numero_celular);
write('Digite la direcci¢n: '); readln(direccion);
write('Digite la fecha de cumplea¤os: '); readln(fecha_cumpleanos);
write('Digite el e-mail: '); readln(email);
writeln(arch,nombre);
writeln(arch,apellido);
writeln(arch,edad);
writeln(arch,numero_telefonico);
writeln(arch,numero_celular);
writeln(arch,direccion);
writeln(arch,fecha_cumpleanos);
writeln(arch,email);
end;
close(arch);
end;
Procedure Buscar;
begin
reset (arch);
entro:=false;
writeln; writeln;
write('Digite una letra: ');
nombreABuscar:=readkey;
clrscr;
while not eof (arch) do
begin
with info do
begin
readln(arch,nombre);
readln(arch,apellido);
readln(arch,edad);
readln(arch,numero_telefonico);
readln(arch,numero_celular);
readln(arch,direccion);
readln(arch,fecha_cumpleanos);
readln(arch,email);
subNombre:=Copy(nombre,1,length(nombreABuscar));
if(subNombre=nombreABuscar) then
begin
entro:=true;
writeln; writeln;
writeln(nombre,' ',apellido);
writeln('Tiene ',edad,'a¤os');
writeln('Tel‚fono: ',numero_telefonico);
writeln('Celular: ',numero_celular);
writeln('Direcci¢n: ',direccion);
writeln('Fecha de Cumplea¤os: ',fecha_cumpleanos);
writeln('E-mail: ',email);
writeln;
end;
end;
end;
if(not entro) then
writeln('No se encontraron resultados para esta busqueda');
readkey;
close (arch);
end;
Procedure Inicializar;cl
begin
rewrite (arch);
close(arch);
end;
Procedure Seleccion;
begin
case opcion of
'1': Ingresar;
'2': Buscar;
'3': Imprimir;
'4': Inicializar;
end;
end;
Procedure Menu;
begin
clrscr;
writeln;
writeln;
gotoxy(35,6);
writeln('MENU DE AGENDA');
writeln;
writeln;
gotoxy(25,7);
writeln('1. Agregar Contactos');
gotoxy(25,9);
writeln('2. Buscar Contactos');
gotoxy(25,11);
writeln('3. Observar Contactos');
gotoxy(25,13);
writeln('4. Inicializar Lista de Contactos');
gotoxy(25,15);
writeln('5. Salir');
writeln;
gotoxy(20,19);
write ('Escoja una opci¢n: ');
opcion:=readkey;
end;
Procedure Ciclo;
begin
Repeat
Menu;
Seleccion;
Until (opcion='5');
end;
Begin
clrscr;
assign (arch,ubicacion);
Ciclo;
End.
pero necesito saber como hago un procedimiento de modificar, eliminar contactos en el archivo, por favor necesito ayuda ya son solo dos procedimientos lo que me hacen falta!