新手关于面向对象的问题，请各位大侠帮忙！

Question

这是我编的一段代码：
program console10;{$APPTYPE CONSOLE}//uses SysUtils;  type
  man=class
  public
  name,address:string;
  procedure who;
  procedure say;
  end;
  
  procedure man.who;
  begin
  writeln('Who are you?');
  readln(name);
  writeln('Where are you live?');
  readln(address);
  end; procedure say;
  begin
  writeln('Hello');
  write(name);
  write('you address is ');
  write(address);
  end;
          var
  name,address:string;
  weidongo:man;
  
begin
  { TODO -oUser -cConsole Main : Insert code here }  weidongo:=man.Create;
  weidongo.who;
  weidongo.say;end.可是编译时却报错，如下：
[Error] console10.dpr(26): Undeclared identifier: 'name'
[Error] console10.dpr(28): Undeclared identifier: 'address'
[Error] console10.dpr(12): Unsatisfied forward or external declaration: 'man.say'

Answer 1

procedure say;应该是
procedure man.say;