Язык арифметических выражений

[serj-07]

Синтаксический анализатор
Задание:
Язык арифметических выражений в инфиксной форме с операциями сложения, вычитания, умножения, деления без скобок, с операндами в форме идентификаторов и целых констант и функциональных выражений с нескольким аргументами. Аргумент функционального выражения – идентификатор.

Вопрос:
как задать функциональное выражение с нескольким аргументами. Аргумент функционального выражения – идентификатор.
пример:abc(a,v)
Это сделал по методичке, а вод как идентификатор завязать с функцией не соображу. Всем спасибо.

procedure TLexicalAnalyzer.ExtractLexeme(const S:string;var P:Integer);

// лексемы в один символ

const ids:array[1..4] of TLexemeType=
                  ( ltPlus,ltMinus,
                  ltMultiply,ltDivide);

      idnames:array[1..4] of char=
      ('+','-','*','/');

var i:byte; found:boolean;

begin
  if P>Length(S) then
   Exit;
  found:=false;
  // текущий символ - это лексема в один символ?
  for i:=1 to 4 do
   if s[p]=idnames[i] then
    begin
     found:=true;
     PutLexeme(ids[i],P,'');
     inc(p)
    end;
  if not(found) then
   case S[P] of
   '0'..'9':
    // это число?
    Number(S,P);

   'A'..'Z','a'..'z':
    // идентификатор?
    Word(S,P);
   else
     // ошибка - недопустимый символ
    err:=WRONG_CHAR
  end
 end;



procedure TLexicalAnalyzer.Number
(const S:string;var P:Integer);
var InitPos:Integer; 

// проверка - является ли Ch цифрой
function IsDigit(Ch:Char):Boolean;
   begin
    Result:=Ch in ['0'..'9']
   end;

   begin
    InitPos:=P;
    // цикл, пока цифры не кончатся
    repeat
     Inc(P)
    until (P>Length(S)) or not IsDigit(S[P]);     
   PutLexeme(ltInteg,InitPos,Copy(S,InitPos,P-InitPos))
   end;


 procedure TLexicalAnalyzer.Word
(const S:string;var P:Integer);

var InitPos:Integer;
    ID:string;
      found:boolean;

  begin
   found:=false;
   InitPos:=P;
   Inc(P);
   while (P<=Length(S)) and
   (S[P] in ['0'..'9','A'..'Z','a'..'z']) do
    Inc(P);
   ID:=Copy(S,InitPos,P-InitPos);
     if not(found) then
    PutLexeme(ltId,InitPos,ID)
  end;

[Jeka57]

Попалась точно такая же задача, поделитесь решением, пожалуйста, если есть...