Разветвленная программка

[guroDragon]

Всем привет, вот таткой вопрос, я начинающий программист, в универе Паскаль вообще не преподается, тупо дают лабу, самим делать все приходится. Препод требует оформлять саму прогу, вот то что должно быть в проге:
При включении предлагается 3 пути:
1)Начать сами вычисления (любые), потом предложить или выйти или еще раз запустить.
2)Вывести инфу о программе. после чего, опять спрашивается, начать вычисления или выйти.
3)Выйти из проги.
Все это с помощью ридкей и без оператора goto. Сказала использовать repeat untill, но я не могу понять алгоритм, как все это правильно записать.
Подскажите плиз.
Премного благодарен.

[Poma][a]

var
        ch : Char;

begin
        repeat
                repeat
                        WriteLn ('Что-то вычесляем');
                        Write ('Повторим? (Y/N)');
                        ReadLn (ch)
                until UpCase (ch) = 'N';

                Write ('Точно не будем повторять? (Y/N)');
                ReadLn (ch);
        until UpCase (ch) = 'Y'
end.

[northener]

Если препод требует через readkey, тогда так

repeat
  ... что-то полезное делаем
  Write('Желаете повторить? (Y/N)');
until UpCase(Readkey) = 'N';