Invalid procedure or function reference

unit GUI;
interface
uses Graph, crt;
type
  typeProc = procedure;
 
  ptrButton = ^button;
  button = record
    name: string;
    y: integer;
    active: typeProc;
    prev, next: ptrButton;
  end;
 
  Menu = object
    public
      constructor loading;
    private
      elements_: ptrButton;
      
      procedure start;
      procedure addElem(name: string; proc: typeProc);
      procedure navigation;
      
      {=======active=======}
      procedure setting;
      procedure modeling;
      procedure results;
      procedure help;
      {=======active=======}
      
      procedure ending;
  end;
  
implementation
 
  constructor Menu.loading;
  var
    gd, gm: integer;
  begin
    elements_ := nil;
    detectGraph(gd, gm);
    initGraph(gd, gm, 'C:\TP\bgi');
 
    addElem('SETTING', setting);
    addElem('MODELING', modeling);
    addElem('RESULTS', results);
    addElem('HELP', help);
    
    start;
    navigation;
    
    ending;
  end;
  
  procedure Menu.start;
  var
    ptr: ptrElMenu;
  begin
    clearDevice;
    setBkColor(White);
    
    setColor(LightRed);
    setTextStyle(DefaultFont, HorizDir, 3);
    setTextJustify(CenterText, CenterText);
    outTextXY(succ(getMaxX) div 2, 60, 'CMO18');
 
    setColor(Cyan);
    setTextStyle(DefaultFont, HorizDir, 2);
    
    ptr := elements_;
    repeat
      outTextXY(succ(getMaxX) div 2, ptr^.y, ptr^.but.whoAmI);
      ptr := ptr^.next;
    until (ptr = elements_);
  end;
  
  procedure Menu.addElem(name: string; proc: typeProc);
  var
    elem, ptr: ptrButton;
    qty: byte;
    dy: word;
  begin
    new(elem);
    elem^.name := name;
    elem^.active := proc;
    
    if (elements_ <> nil) then begin
      elem^.next := elements_;
      elements_^.prev := elem;
      
      qty := 2;
      ptr := elements_;
      while (ptr^.next <> elements_) do begin
        qty := qty + 1;
        ptr := ptr^.next;
      end;
      
      elem^.prev := ptr;
      ptr^.next := elem;
      
      dy := round(300 / (qty + 1));
      ptr := elements_;
      ptr^.y := dy + 120;
      while (ptr^.next <> elements_) do begin
        ptr^.next^.y := ptr^.y + dy;
        ptr := ptr^.next;
      end;
    end
    else begin
      elements_ := elem;
      elements_^.y := 270;
      elements_^.next := elements_;
      elements_^.prev := elements_;
    end;
  end;
      
  procedure Menu.navigation;
  var
    key: char;
  begin
    setTextJustify(CenterText, CenterText);
    setTextStyle(DefaultFont, HorizDir, 2);
    
    while true do begin
      setColor(LightGreen);
      outTextXY(succ(getMaxX) div 2, elements_^.y, elements_^.name);
      
      key := readkey;
      case key of
        #0: begin
          key := readkey;
          if (((key = #72) or (key = #80)) and (elements_ <> nil) then begin
            setColor(Cyan);
            outTextXY(succ(getMaxX) div 2, elements_^.y, elements_^.name);
            
            if (key = #72) then
              elements_ := elements_^.prev;
            else 
              elements_ := elements_^.next;
          end;
        end;
        
        #13: begin
          elements_^.active;
        end;
        
        #27: break;
      end;
    end;
  end;
  
  {$S+}
  procedure Menu.setting;
  begin end;
  {$S-}
  
  procedure Menu.modeling;
  begin end;
  
  procedure Menu.results;
  begin end;
  
  procedure Menu.help;
  begin end;
  
  procedure Menu.ending;
  var
    tmp: ptrButton;
  begin
    while ((elements_^.next <> elements_) and (elements_^.next <> nil)) do begin
      tmp := elements_^.next;
      tmp^.next^.prev := elements_;
      elements_^.next := tmp^.next;
      dispose(tmp);
    end;
    dispose(elements_);
    
    closeGraph;
  end;
 
end.