обратная польская запись, хелп Опции

[-KOT-]

помогите плз , нужно в эту прогу добавить обратную польскую запись , то есть чтобы это выражение , которое вводишь преобразовывалось в польскую запись.




const max=100;
s__:string='(){}[]';
var
mas:array[1..max] of char;
kon,q,g,a1,a2:longint;
str:string;
{}
begin
writeln('vvedite vyrajenie');
readln(str);
kon:=0;
for q:=1 to length(str) do begin
if (str[q]='(')or(str[q]='{')or(str[q]='[') then begin
inc(kon);
mas[kon]:=str[q];
end;
if (str[q]=')')or(str[q]='}')or(str[q]=']') then begin
if (pos(str[q],s__)-1=pos(mas[kon],s__)) then begin
dec(kon);
end else begin
writeln('incorect');
readln;
exit;
end;
end;
end;
if (kon<>0) then begin
writeln('incorect');
readln;
exit;
end;
writeln('corect');
readln;
end.