Сложение строк

[loktor]

Здравствуйте, привожу кусок своей программы, в строке записаны числа, нужно их сложить, код работает, нужно переписать его в ф-ции/процедуры, что у меня совственно не получилось(
появл баги и программа не работает.. посмотрите что к чему..

if (st[1]='-') then
        begin
          delete(st,1,1);
          if (pos('1000000',st)<>0) then
            begin
              insert(' n',st,pos('1000000',st)-1);
              while (s<>'n ') do
                begin
                  s:=copy(st,1,pos(' ',st));
                  val(s,a,code);
                  delete(st,1,pos(' ',st));
                  a1:=a1+a
                end;
              delete(st,pos('n',st),2);
              s:=copy(st,1,pos(' ',st));
              val(s,a2,code);
              delete(st,1,pos(' ',st));
              d:=a1*a2;
            end;
          if (pos('1000',st)<>0) then
            begin
              insert(' m',st,pos('1000',st)-1);
              while (s<>'m ') do
                begin
                  s:=copy(st,1,pos(' ',st));
                  val(s,b,code);
                  delete(st,1,pos(' ',st));
                  b1:=b1+b
                end;
              delete(st,pos('m',st),2);
              s:=copy(st,1,pos(' ',st));
              val(s,b2,code);
              delete(st,1,pos(' ',st));
              f:=b1*b2
            end;
          for i:=1 to length(st) do
            begin
              s:=copy(st,1,pos(' ',st));
              val(s,c,code);
              delete(st,1,pos(' ',st));
              c1:=c1+c
            end;
          g:=d+f+c1;
          h:=-g;
        end;