procedure form1.p();
var i,j,k,l:integer;
    s:string;
    c:char;
    p,p1:integer;
    f:boolean;
begin
    l:=lenght(Edit1.text);
    s:='';
    Memo1.lines.clear();
    Memo2.lines.clear();
    p:=0;
    for i:=1 to l do
        begin
             c:=Edit1.text[i];
             if c='(' then p:=p+3;
             if c=')' then p:=p-3;
             if (c='+') or (c='-') then p1:=1;
             if (c='*') or (c='/') then p1:=2;
             if (c='+') or (c='-') or (c='/') or (c='*') then begin Memo1.lines.add(s);
                                                                    Memo1.lines.add(c);
                                                                    s:='';
                                                                    Memo2.lines.add('0');
                                                                    Memo2.lines.add(inttostr(p+p1));
                                                              end;
             if (c<>'+') and (c<>'-') and (c<>'/') and (c<>'*') and (c<>'(') and (c<>')') then s:=s+c;
        end;
    Memo1.lines.add(s);
    Memo2.lines.add('0');
    l:=Memo1.lines.count;
    for i:=l-1 downto 0 do
        begin
             if strtoint(Memo2.Lines[i]>0) then begin s:=Memo2.lines[i];
                                                      Memo2.lines[i]:=Memo2.lines[i+1];
                                                      Memo2.lines[i+1]:=s;
                                                      s:=Memo1.lines[i];
                                                      Memo1.lines[i]:=Memo1.lines[i+1];
                                                      Memo1.lines[i+1]:=s;
                                                end;
        end;
    repeat
          f:=false;
          for i:=0 to c-1 do
              begin
                   if strtoint(Memo2.Lines[i]>0) then begin for j:=c-1 downdo i do
                                                                if strtoint(Memo2.Lines[j]>0) then k:=j;
                   if k>i then begin p:=strtoint(Memo2.Lines[i]>0);
                                     p1:=strtoint(Memo2.Lines[k]>0);
                                     if p<p1 then begin s:=memo1.lines[i];
                                                                memo1.lines.delete;
                                                                memo1.lines.insert(k,s);
                                                                s:=memo2.lines[i];
                                                                memo2.lines.delete;
                                                                memo2.lines.insert(k,s);
                                                                f:=true;
                                                        end;
                               end;
              end;
    until not(f);
end;