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

[Maximka]

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

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

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

[Maximka]

Вот мой алгоритм переводящий выражение в польскую запись. Попробуйте запустить его с большими числами и вы сразу, поймете почему он не подходит для чисел с произвольной разрядностью..Вы можете осудить меня за попытку "повторного изобретения велесипеда", но мне очень хочется довести задуманное до конца...
Помогите пожалуйста доработать мой алгоритм.

" (Показать/Скрыть)

const
max=1000;
type
 STACK = record
		  top:integer;
		  elem:array [1..max] of char;
		 end;
 var
 s,s2:stack;
 symv:char;
 {---------------------------------------}
   procedure MakeNull (var S:STACK);
	   begin
		 S.top:=max + 1;
	   end;
{---------------------------------------}
   function Empty (S:Stack):boolean;
	   begin
		if S.top > max then
		   Empty:=true
		else
		   Empty:=false;
	   end;
{----------------------------------------}
   function Top(s : stack) : char;
  begin
	if Empty(s) then exit
  else
	  Top := s.elem[s.top];
  end;
{---------------------------------------}
   procedure OutStack (var s:stack; var symv:char);
	  begin
		if Empty (s) then exit
	   else
		begin
		 symv:= s.elem[s.top];
		 s.top:=S.top + 1;
		end;
	  end;
{---------------------------------------}
   procedure Instack (var S:Stack;x:char);
	  begin
		if S.top = 1 then exit
	   else
			begin
			 s.top:=s.top-1;
			 s.elem[s.top]:=x;
			end;
	   end;
{----------------------------------------}
   function Prior(f : char) : Byte;
begin
	case f of
	   '+','-' : prior := 2;
	   '*','/' : prior := 3;
	   '(' , ')' : prior := 1;
		else
	 prior := 0;
	end;
end;

{----------------------------------------}
 procedure Dell(var s : stack);
begin
	if Empty(s) then exit
	else
	  s.top := s.top + 1;
end;
{----------------------------------------}
  procedure opz (var output:string);
	var
	 i: integer; input:string;
	 t: boolean;
	  begin
	   Makenull(s);
	   Makenull(s2);
	   write ('Inp = ');
	   readln (input);
		for i:=1 to length (input) do
		  case input[i] of
		   '0'..'9': instack (s2,input[i]);
	'+','-','*','/': begin
						while Prior(Top(s))>= Prior(input[i]) do
						   begin
							outstack(s,symv);
							instack(s2,symv);
						   end;
							instack (s,input[i]);
						 end;


			'(' : instack (s,input[i]);
			')' :  begin
					 while prior(top(s))<>1 do
					   begin
						outstack (s,symv);
						instack (s2,symv);
					   end;
						Dell(s);
					 end;
				   end;

		   for i:=max downto s2.top do
			output:=output+s2.elem[i];


		   for i:=max downto s.top do
			output:=output+s.elem[i];

				writeln ('out = ',output);

			  end;





  var
   outp,inp:string;
	s1:stack;
	begin
	 OPZ (outp);
	 writeln ('---------------------------');
	  readln;
	 end.