Как, с помощью оператора case, сделать выбор процедуры?
То есть вроде
case x of
1:procedure 1;
2:procedure 2;
но так, что б работало=\
procedure Lab; // никаких параметров
var // а вот теперь описываем локальные переменные
a,b,y: real;
begin
...
repeat
if что-то там then continue; // команда continue - начать цикл с начала
if что-то там then break; // команда break - выйти из цикла
until false;