Действия над ДСД, работа со стеком

/////////////////////////// Поиск M или m////////////////////////////
function Mm(var st:nodePtr): byte;
var el1,el2, kom: char; e1,e2,e3: byte;
begin
   readdelfromstack(st, e1, el1);
      if el1<>'f' then
      begin
        writeln('Mm error. Expected figure but found ',el1);
        DeleteSt(st);
        readln;
        halt
      end;
   readdelfromstack(st, e2, el2);
      if el2<>'f' then
      begin
        writeln('Mm error. Expected figure but found ',el2);
        DeleteSt(st);
        readln;
        halt
      end;
   readdelfromstack(st, e3, kom);
      if Upcase(kom)<>'M' then
      begin
      writeln('Mm error. Expected M or m but found ',kom);
      DeleteSt(st);
      readln;
      halt
      end;
 
   Mm:=e1;
   case kom of
     'M': if e2 > e1 then Mm:=e2;
     'm': if e2 < e1 then Mm:=e2;
   end;
end;
 
////////////////////////// Формула для вычисления ///////////////////////////////
procedure formula(var f: TextFile; var st: nodePtr; var re: byte);
var ch: char; re1, re2: byte;
begin
    ch :=' ';
    while not eof(f) and (ch=' ') do read(f,ch);
    if Upcase(ch)='M' then
    begin
       addtostack(0, ch, st);
 
       ch :=' ';
       while not eof(f) and (ch=' ') do read(f,ch);
       if ch<>'(' then
       begin
        ShowMessage('expected ( but found ' +ch);
        clearstack(st);
       end;
 
       formula(f, st, re1);
       addtostack(re1, 'f', st);
 
       ch :=' ';
       while not eof(f) and (ch=' ') do read(f,ch);
       if ch<>',' then
       begin
        ShowMessage('expected , but found '+ch);
        clearstack(st);
       end;
 
       formula(f, st, re2);
       addtostack(re2, 'f', st);
 
       ch :=' ';
       while not eof(f) and (ch=' ') do read(f,ch);
       if ch<>')' then
       begin
        ShowMessage('expected ) but found "'+ch+'"');
        clearstack(st);
       end;
 
       re := Mm(st);
   end
   else
   if ch in ['0'..'9'] then
    re:=Ord(ch)-Ord('0')
   else
   begin
    ShowMessage('expected formula but found "'+ch+'"');
    clearstack(st);
   end;
end;