Pascal/Turbo Pascal - Menú con programación modular

Realizar un programa en pascal, que incorpore un menú y programación modular para determinar:

Menú principal

1. Arcoseno

2.ArcoCoseno

3.Arcotangente

4.Salir.

(*
1. Arcoseno
2.ArcoCoseno
3.Arcotangente
4.Salir.
*)
uses crt , math ;
var
op : Char;
n : real ;


procedure meprincipal;
begin
clrscr;
writeln('>>>>>>>>>>>>>>>>>>>>>>');
writeln('<< MENU PRINCIPAL >>');
writeln('<< >>');
writeln('<< 1. Arcoseno >>');
writeln('<< 2. ArcoCoseno >>');
writeln('<< 3. Arcotangente >>');
writeln('<< 4. Salir >>');
writeln('>>>>>>>>>>>>>>>>>>>>>');
end;

procedure leer;
begin
writeln('Ingrese un numero: ') ;
readln(n);
end;

function trigo(x:Char;numero:Real):Real;
begin
case x of
'1' : trigo := Arcsin(numero);
'2' : trigo := Arccos(numero);
'3' : trigo := arctan(numero);
end;
end;

// programa principal
begin
meprincipal;
leer;
repeat
repeat
writeln('ingese una opcio [1..4] ');
ReadLn(op);
until (op >= '1') and (op <= '4');

case op of
'1' : writeln('Arcoseno ',n,' = ', trigo(op,n) );
'2' : writeln('ArcoCoseno ',n,' = ', trigo(op,n) );
'3' : writeln('cotangente ',n,' = ', trigo(op,n) );
'4' : writeln('Saliendo ') ;
end ;
until op = '4';

end.

Muchas gracias!