Pascal/Turbo Pascal - Bucle case - off

Hola, necesito hacer un programa que mediante un menu hecho con un bucle case off, segun lo que se introduzca por teclado ( tipo integer ) haga un procedimiento u otro, los procedimientos ya los tengo hechos, pero no se como hacer el bucle, ademas se tiene que repetir hasta que se seleccione el numero de la opcion salir.

Supongo q para que se repita, con un bucle "repeat - until num=4" si la opcion salir es la cuarta, valdria, mi problema es como diseñar el bucle case off, he escrito esto, pero no funciona:

repeat
read(num);
case num of
1: nombreprocedimiento;
2: nombreprocedimiento;
3: writeln ( ' Salir ');
end;
until num=3;

Muchas gracias por las posibles respuestas.

Salu2

Hola Axel ! Examiné tu código y creo que funciona aunque le hice algunas modificaciones para hacerlo sencillo..

uses crt;
var num : integer;

begin
Writeln('Escriba un n£mero de opci¢n (1,2) o 3 para salir:');
repeat
read(num);
case num of
1: writeln('Porcedure 1');
2: writeln('Procedure 2');
3: writeln ( ' Salir ');
end;

until num=3;
end.

Muchas gracias por la ayuda Mechanic.

Salu2

De nada axel..
Para eso estamos aquí!

Buenas, aqui estoy de nuevo con esta misma duda, no habia tenido ocasion de probarlo en condiciones por que el resto del programa no funcionaba al 100 %

A ver, escribo el bucle asi:

repeat
read(num);
case num of
1 : begin
assign(fe, 'c:/prcA.txt);
reset(fe);
dim:=4;
leermat(m,fe,dim);
matrix(fe,dim,m);
close(fe);
end;
2 : begin;
assign(fe, 'c:/prcB.txt');
reset(fe);
dim:=6;
leermat(m,fe,dim);
matrix(fe,dim,m);
close(fe);
end;

end;
until num=3;
end.

En principio, pienso que esta bien, falla al entrar en el procedimiento llamado matrix, el cual si lo ejecuto en el programa principal no me da ningun problema, pero dentro del CASE me da error, ¿existe alguna restriccion dentro de este tipo de bucles?

A ver si alguien me puede hechar una mano ; )

Muchas gracias a todos