Чем можно поменять оператор goto в турбо паскале. Существует программа необходимо,

Чем можно заменить оператор goto в турбо паскале. Существует программа необходимо, чтоб при нажатии определенной буковкы выполнялась определенный цикл, как это сделать не используя оператор бесспорного перехода goto.
Приведите пример на следующем коде:
Program ABC;
Uses CRT;
var
a, b, x, y, w, z: Real;
C, D, E, Q: integer;
begin
begin Q
writeln ('la-la-la');
writeln ('Если желаете вычислить сумму, то нажмите С, произведение- D, операцию дробленья -E ');
readln;
ClrScr;
end;
begin c
readln(a, b);
writeln (a+b);
readln;
ClrScr;
end;
begin D
readln(x, y);
writeln (x*y);
readln;
ClrScr;
end;
begin E
readln(w, z);
writeln (w/z);
readln;
ClrScr;
end;
end.
Если пользователь давит буковку Q нужно возвращать его к операции:
" begin Q
writeln ('la-la-la');
writeln ('Если хотите вычислить сумму, то нажмите С, творенье- D, операцию дробленья -E ');
end;"
В случае, если юзер вводит любую иную букву необходимо сказать, что 'Error, please enter C, E or D' и после того, как он введет подходящую букву вывести подходящую операцию