SoloCodigo

Se necesita un programa para gestión de una agencia matrimonial. Por cada cliente se almacenaran los siguientes datos:
Nombre, edad, sexo (M, F), aficiones (Lectura, Viajes, Deportes, Cine, Gastronomía, Ordenadores, Juegos, Perros). Una persona puede tener ninguna, una o más aficiones.

Se necesitan varios procedimientos:
a) Procedimiento para introducir en la estructura los datos de una persona.
b) Buscar una persona (por el nombre)
c) Eliminar una persona (se localiza por el nombre)
d) Casar. Dado el nombre de una persona, se busca una afín a ella, se
presenta por pantalla sus datos y se eliminan los dos de la base de
datos. Una persona será afín a otra (a efectos de matrimonio) si tiene
distinto sexo y coinciden sus aficiones.

Implemente usando punteros y listas.


Tengo que hacer este ejercicio para una clase de mañana, se que es medio tarde, pero se que hay muchos aquí que saben mucho de programación y de Pascal, por lo que para más de uno le debe ser fácil hacerlo en pocas lineas. No es díficil pero a mi listas y punteros se me complica

Les agredecería de corazón su ayuda ya que es un trabajo que me ayudaría a aprobar la cursada, desde ya, muchisimas gracias.

Program Ejer14;
 Type
   Clientes=Record
   Nombre:String[50];
   Edad:Integer;
   Sexo:String[1];
   Aficiones:Array[1..8] of Integer;
   End;
   Ptr=^Clientes;

 Var
  P:Ptr;

 Begin
  New(P);
  P:=Nil;

Procedure Cargar (Var C:Clientes);
 Var
  Nue:Clientes;
  Begin
   New(Nue);
  If C = Nil then
  Begin
   Write ('Ingrese nombre del nuevo cliente: ');
   Read (nom);
   Nue^Nombre:=nom;
   Write ('Ingrese edad del nuevo cliente: ');
   Read (edad);
   Nue^Edad:=edad;
   Write ('Ingrese sexo (M o F) del nuevo cliente: ');
   Read (sexo);
   Nue^Sexo:=sexo;
   Write ('Ingrese aficion(es) del nuevo cliente: ');
   Read (afi);
   Nue^Afi:=afi;
  end;
   // Como hago para que me cargue los datos si la lista no está vacia ? tengo que copiar el código exacto que está dentro del if ?



End.