Programacion en pascal

[enaprietos]

HOLA NECESITO AYUDA CON ESTE EJERCICIO, CREO QUE TIENE TODO PARA PRACTICAR, Y QUIERO VER COMO HAGO.
SOY ESTUDIANTE DE INFORMATICA Y ESTE ES MI EJERCICIO

SE TIENE LA SIGUIENTE INFORMACION DE UN GRUPO DE PERSONAS CEDULA APELLIDO NOMBRES.. ETC..
ELABORAR UN PROGRAMA QUE FORME DOS ARREGLOS DE REGISTROS UNO CON LAS PERSONAS QUE TRABAJAN Y EL OTRO CON LAS QUE NO
(CREO QUE ESA PARTE LA TENGO BUENA)

LUEGO CON LOS DOS ARREGLOS DEL PROBLEMA ANTERIOR ELABORE UN MENU QUE AGREGUE UNA NUEVA PERSONA (SE LE DEBE DE PEDIR TODOS LOS DATOS)
SI HAY DISPONIBILIDAD. EL ARREGLO SOLO ES DE 20 PERSONAS.
ELIMINAR PERSONAS, SE LE DEBE DE PEDIR CEDULA Y ESTADO LABORAL, LISTA DE PERSONAS QUE TRABAJAN, LISTA DE LAS QUE NO, LISTA DE MUJERS QUE TRABAJAN, Y LISTA DE HOMBRES QUE TRABAJAN.

ESTO ES LO QUE HE LOGRADO HACER
NECESITO QUE ME ACONSEJEN ME DEN IDEAS, Y QUISIERA SABER COMO LE HAGO PARA TERMINAR...
AYUDENME, DE ANTEMANO GRACIAS POR SU ATENCION.


program EJERCICIO_III;
uses crt;
const
max=20;
type
grupo =record
cedula : integer;
apellidos : string [30];
nombres : string [30];
direccion :string[50];
telefono : string[20];
sexo : char;
estado_laboral : integer;
end;


vector1 = array [1..1000] of grupo;
var
a,b : vector1;
i,n: integer;
opcion: char;

PROCEDURE PROG1(var a:vector1; n:integer);
var
i:integer;
begin
IF n<max THEN
for i:=1 to n do
with a[i] do
begin
writeln('introduzca cedula');
readln(a[i].cedula);
writeln('introduzca apellidos');
readln(a[i].apellidos);
writeln('introduzca nombre');
readln(a[i].nombres);
writeln('introduzca direccion');
readln(a[i].direccion);
writeln('introduzca telefono');
readln(a[i].telefono);
writeln('introduzca sexo F o M');
readln(a[i].sexo);
writeln('introduzca estado laboral: 1)TRABAJA 2)NO TRABAJA');
readln(a[i].estado_laboral);
END;
end;

PROCEDURE PROG2(var a:vector1; n:integer);
var
c,trabaja,no_trabaja,i:integer;

begin
writeln('introduzca cedula y estado laboral: 1)TRABAJA 2)NO TRABAJA');
readln(c);
readln(trabaja);
readln(no_trabaja);
for i:=1 to n
begin
readln(a[i].cedula);
readln(a[i].apellidos);
readln(a[i].nombres);
readln(a[i].direccion);
readln(a[i].telefono);
readln(a[i].sexo);
readln(a[i].estado_laboral);
end;
if (a[i].cedula) and (trabaja) then
begin




begin
Clrscr;
writeln('introduzca la cantidad del grupo ha ingresar');
readln(n);

for i:=1 to n do {Rellena los campos del registro}
with a[i] do
begin
writeln('introduzca cedula');
readln(a[i].cedula);
writeln('introduzca apellidos');
readln(a[i].apellidos);
writeln('introduzca nombre');
readln(a[i].nombres);
writeln('introduzca direccion');
readln(a[i].direccion);
writeln('introduzca telefono');
readln(a[i].telefono);
writeln('introduzca sexo F o M');
readln(a[i].sexo);
writeln('introduzca estado laboral: 1)TRABAJA 2)NO TRABAJA');
readln(a[i].estado_laboral);


if a[i].estado_laboral=1 then
begin {Almacena en el vector a, las personas
que trabajan
y en el vector b, las que no}
a[i]:=a[i];
end;
if a[i].estado_laboral=2 then
begin
b[i]:=a[i];
end;

end;



opcion:=readkey;

begin
repeat
clrscr;
WRITELN(' lista de MENU');
writeln(' ==============');

writeln('A.- Agregar una Nueva Persona al sistema');
writeln('B.- Eliminar una persona del sistema');
writeln('C.- cambio de estado laboral');
writeln('D.- Busqueda');
writeln('E.- Lista de personas que trabajan');
writeln('F.- Lista de personas que no trabajan');
writeln('G.- Lista de mujeres que no trabajan');
writeln('H.- Lista de hombres que trabajan');
writeln('I.- Salir');
writeln;
writeln('Elije una opcion:');
opcion:=readkey;
CASE opcion OF
'A': PROG1;
'B': PROG2;
'C': PROG3;
'D': PROG4;
'E': PROG5;
'F': PROG6;
'G': PROG7;
'H': PROG8;
END;
until opcion='I';



readln();
end.