Рекурсия Опции

[Alex J'Root]

Помогите с одной задачей:

Написать программу, которая по заданной "Сумме" вычисляет и выводит значение этой суммы.

<Сумма>::=<Целое>|(<Cумма><Знак_операции><Целое>)
<Целое>::=<Цифра>{<Цифра>}
<Знак_операции>::=+|-

Пример правильной "суммы": 24; 34+45; 7-121+32.

[Alex J'Root]

Что-то "немножко" не получилось.

Program Rek;
Uses Crt;
Var
  i,j,rez,rez0,rezN,rez1,rezul,perem:integer;
  strok,x:string;
  p:array[1..20] of integer;
  fl:boolean;
Procedure rekyrs(var strok:string);
  Begin
    For i:=1 to length(strok) do
      Begin
        If (strok[i]<>'+') or (strok[i]<>'-') then
          Begin
            Val(strok,rez0,rezul);
            perem:=3;
          End
        else
          Begin
            x:=Copy(strok,1,i-1);
            Val(x,rez1,rezul);
          end;
            rez1:=rezN;
            case perem of
            1: begin rez:=rezN+rez+rez1; fl:=true end;
            2: begin rez:=(rezN+rez)-rez1; fl:=true end;
            end;
            If strok[i]='+' then perem:=1;
            If strok[i]='-' then perem:=2;
            If fl then rezN:=0;
            Delete(strok,1,i);
            If perem<>3 then rekyrs(strok);
          End;
        end;
  End;
Begin
  clrscr;
  j:=1;
  writeln('Vvedite virazhenie');
  readln(strok);
  rekyrs(strok);
  rez:=rez+rez0;
  writeln(rez);
  readln;
End.