Рекурсия: вывести значение логического выражения, заданного в виде строки

function ParseParams(S: string): array [1..3] of string;

type mas=array [1..3] of string;

procedure ParseParams(S: string; var a:mas);

Result:string

Result[Pos] := Copy(S, Start, ParamLen);

uses crt;
function CalcResult(S: string): boolean;
type mas=array [1..3] of string;
  procedure ParseParams(S:string;var a:mas);
  var
    I, Pos, Skobki, Start, ParamLen: integer;
  begin
    Pos := 1;
    Skobki := 0;
    Start := 2;
    ParamLen := 0;
    for I:=2 to Length(S)-1 do begin {// krajnie skobki}
      if (S[I] = ',') and (Skobki = 0) then
       begin
        a[Pos] := Copy(S, Start, ParamLen);
        Start := I+1;
        ParamLen := 0;
        Inc(Pos);
      end
      else begin
        if S[I] = '(' then
          Inc(Skobki)
        else if S[I] = ')' then
          Dec(Skobki);
        Inc(ParamLen);
      end;
    end;
    {// zapishem poslednij parametr}
    a[Pos] := Copy(S, Start, ParamLen);
  end;
var
  Params:mas;
begin
  if S = 'T' then
    CalcResult := True
  else if S = 'F' then
    CalcResult := False
  else if S[1] = 'O' then begin {// or}
    ParseParams(copy(S, 3, Length(S)-2),params);
    {Params := ParseParams(Copy(S, 3, Length(S)-2));}
    CalcResult := CalcResult(Params[1]) or CalcResult(Params[2]) or CalcResult(Params[3]);
  end
  else if S[1] = 'A' then begin {// and}
    ParseParams(Copy(S, 4, Length(S)-3),params);
    CalcResult := CalcResult(Params[1]) and CalcResult(Params[2]) and CalcResult(Params[3]);
  end else
    CalcResult := False;
end;
var st:string;
begin
clrscr;
st:='Or(And(Or(F,T,T),F,F,),T,T)';
write(CalcResult(st));
readln
end.