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

[weidongo]

这是我编的一段代码：
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'

[meteorlg]

procedure say;应该是
procedure man.say;