Калькулятор, с произвольными разрядами Опции

[Maximka]

Подскажите пожалуйста как реализовать калькулятор с числами произвольной разрядности?????
например

 
var
 s:string;
  begin
   s:=(2000-353)*164-(2222/234);

Польская запись вроде не подходит....Можно сделать массив строк, и забивать каждый элемент в эти строки...Но как потом проверять приоритетность действий ??????

[volvo]

поймете почему он не подходит для чисел с произвольной разрядностью

Для этого совершенно не надо ничего запускать... Я тебе и так скажу. Вот то, что тебе мешает:

Procedure opz(var output: string);
...
case input[i] of
  '0'..'9': instack (s2,input[i]); { <--- !!! }

То есть ты ГАРАНТИРОВАННО запихнешь в стек только один символ. Так? А это неверно... Тебе надо сначала прочесть из строки ряд символов (до первого знака операции, скобки или конца строки), и только потом заносить эту последовательность в стек...