PASCAL

Me piden cosas imposibles de entrega y necesitaria que me echaran un cable he conseguido hacer algunas cuantas cosas pero me estoy volviendo loco :

El ejercito de la nacion de Freedonia quiere gestionar la adjudicacion de puestos para los tenientes
recien licenciados. Para ello se va a trabajar con dos listas:
Candidatos a los puestos con sus datos (DNI, nombre, apellidos, fecha de nacimiento, nota media
del expediente y preferencias: 3 codigos de puesto de trabajo como maximo, ordenados de mayor a
menor preferencia).
Listas de puestos a adjudicar. Cada plaza se identica de manera unvoca mediante el codigo del
puesto de trabajo que consta de 9 caracteres (por ejemplo: 5J004/001, 5J008/003, 5J042/004).
Ademas para cada puesto se almacenan los siguientes datos: UCO y localidad.
Al iniciarse, a aplicacion debera realizar automaticamente las siguientes operaciones:
1. Insertar puestos desde un chero (ver anexo B).
2. Insertar candidatos desde un chero (ver anexo B).
Ademas, debera permitir al usuario realizar las siguientes operaciones:
1. Insertar un nuevo candidato desde teclado.
2. Eliminar un candidato introduciendo su DNI.
3. Mostrar por pantalla la lista de candidatos ordenados por DNI.
4. Mostrar por pantalla la lista de puestos.
5. Calcular la adjudicacion de puestos.
Una vez se haya realizado la adjudicacion de puestos, el usuario solo podra acceder a las opciones de
\Mostrar por pantalla...".
Cada vez que se interrogue al usuario con cada uno de los datos a introducir, o cuando se lean de
chero, se validara la correccion de los mismos (para la correccion del DNI vease el Anexo A). Ademas
se debera comprobar que el candidato que se introduce por teclado no esta ya en la base de datos. Se
utiliza el numero del DNI como referencia para vericar si el candidato ya esta en la base de datos. Para
eliminar a un candidato, la aplicacion preguntara por su DNI y procedera a eliminarlo de la base de
datos.
La adjudicacion de plazas se realizara segun la nota del expediente y las preferencias de cada candi-
dato. Si la primera preferencia de un candidato esta ya adjudicada (ya no aparece en la lista de puestos
a adjudicar), se intentara asignarle su segunda preferencia y, en caso de que tampoco este disponible,
con la tercera preferencia. Como resultado de la adjudicacion se incluiran los datos del puesto de trabajo
(codigo, localidad y UCO) entre los datos del candidato al que se le ha adjudicado dicho puesto. Al nal
del proceso, los candidatos sin puesto adjudicado deberan tener como codigo de puesto: 0?000/000 (dato
a tener en cuenta en cada insercion de un nuevo candidato).











program prog;
{$mode objfpc}
{$R+}
type
tDia=1..31;
tMes=1..12;
tAnyo=1900..3000;

{funcion que saca el primer item de una lista de items separados por ; y lo devuelve}
{devuelve falso si ya no quedan items en la lista}
function sacarCampo(var linea:string; var campo:string):boolean;
var
p : byte;
begin
if linea = '' then
sacarCampo := false
else
begin
p := pos(';',linea); {buscamos el primer separador}
if p <> 0 then
begin
{Copiamos el campo, y lo quitamos de la linea }
campo := copy(linea,1, p-1);
delete(linea,1,p);
end
else
begin
campo := linea;
delete(linea,1,length(linea));
end;
sacarCampo := true
end
end;



{funcion que procesa una linea de un fichero de puestos vacantes}
{devuelve falso si no se han podido reconocer correctamente todos los campos}
function procesarLineaPuesto(linea:string; var codigo, UCO, destino:string):boolean;
var
ok : boolean;
begin
ok := true;
ok := ok and sacarCampo(linea,codigo);
ok := ok and sacarCampo(linea,UCO);
ok := ok and sacarCampo(linea,destino);
procesarLineaPuesto:=ok
end;

{funcion que abre un fichero de texto}
{devuelve true si la operacion se ha realizado con exito; falso en caso contrario}
function abrirFichero(var entrada:Text; nombre:String):boolean;
begin
{asignar a la variable el nombre de un fichero}
assign(entrada, nombre);
try
{abrir el fichero}
reset(entrada);
abrirFichero:=true;
except
writeln('ERROR! El fichero no existe');
writeln('Ponga el fichero de entrada en el mismo directorio que su programa *.pas.');
abrirFichero:=false
end;
end;

{procedimiento para cargar los candidatos desde un fichero}
{a terminar por el alumnado}
procedure cargarCandidatos(var listaCandidatos:tListaCandidatos);
var
nombre, linea:string;
entrada:Text;
begin
{Abrimos un fichero cuyo nombre se introduce desde el teclado}
repeat
writeln('Introduzca el nombre del fichero con candidatos');
readln(nombre);
until (length(nombre)>0) and abrirFichero(entrada, nombre);

{Se lee el contenido del fichero linea por linea}
while NOT EOF(entrada) do
begin
readln(entrada,linea);

{llamada a procesarLineaCandidato}
{NO SE COMO TERMINAR}
...
end;

{Cerramos el fichero}
{SIEMPRE hay que cerrar un fichero ya abierto al finalizar las operaciones con el}
close(entrada);

end;

{procedimiento para cargar la lista de puestos desde un fichero}
{a terminar por el alumnado}
procedure cargarPuestos(var listaPuestos:tListaPuestos);
var
nombre, linea:string;
entrada:Text;
begin
{Abrimos un fichero cuyo nombre se introduce desde el teclado}
repeat
writeln('Introduzca el nombre del fichero con puestos');
readln(nombre);
until (length(nombre)>0) and abrirFichero(entrada, nombre);

{Se lee el contenido del fichero linea por linea}
while NOT EOF(entrada) do
begin
readln(entrada,linea);

{llamada a procesarLineaPuesto}
{NO SE COMO TERMINAR}
...
end;

{Cerramos el fichero}
{SIEMPRE hay que cerrar un fichero ya abierto al finalizar las operaciones con el}
close(entrada);

end;


begin

end.