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

Можно пробовать через оператор выбора case (условие со многими выходами) если только таковой оператор есть в турбо. в обыкновенном паскале есть.
К примеру:
writeln(Введите цифру ); 
  readln(a);
        case a of
        0 : writeln (ноль);
        1 : writeln (один);
        2 : writeln (два);
        3 : writeln (три);
        4 : writeln (четыре);
        5 : writeln (5);
        6 : writeln (6);
        7 : writeln (семь);
        8 : writeln (восемь);
        9 : writeln (девять);