Pascal/Turbo Pascal - creacion de menu y decir que numero es mayor

Hola estoy dando pascal en la universidad y no se casi nada, por favor me podrian explicar como hacer un programa que cuando inice te de tres opciones

1 - entrar datos.
2 - buscar trabajador.
3 - decir cual es mayor.

Osea, si presiono 1 entonces entro los datos.
si presiono 2 busco un trabajador.

y asi susucivamente.

y quisiera saber como puedo compara para ver cual es mayor

yo hice esto, y en la parte del for me da un error:

program lolo;

type

data = record;
nombre : string;
edad : integer;

a = array[1..10] of a;

var

p : a;

begin

for p := 1 to 10 do; // el error me lo da cuando compilo aqui en el for....??????
writeln('entre nombre');
readln(p[1].nombre);
end.

¿Segura que solo en el for te da error?, mmm...

type

data = record;
nombre : string;
edad : integer;

a = array[1..10] of a;

Esta declaración es un tanto extraña. ¿No habrás querido poner: ?

type

data = record;
nombre : string;
edad : integer;

a = array[1..10] of data;


Para el for requiere una variable de tipo ordinal, si P la has declarado como A y A es un array, luego P no es un tipo ordinal.
Además si quieres llenar todo el array necesitas un índica (que obviamente no puede ser la variale misma).
Y por último, el for, tal como lo has puesto te mostraría 10 veces el mensaje 'entre nombre' y luego pediría solo una posición de array ¿por qué?, porque le estás indicando que el bloque a ejecutar es de solo una sentencia. Para que se ejecute más de una dentro del for, debes encerrar el bloque entre cláusulas begin... end;

type

data = record;
nombre : string;
edad : integer;

a = array[1..10] of data; { a es un tipo array de data's }

var

p : a; { p es de tipo a, o sea un array de data's }
i: integer; { integer es un tipo ordinal }

begin

for i := 1 to 10 do
begin { inicio del bloque for }
writeln('entre nombre');
readln(p[i].nombre);
end; { fin del bloque for }
end.