[fpc-pascal]Password changing

[Ivan Montes]

> Program Getpw;
> 
> Uses
>   Linux;
> 
> var
>   p: ^TPasswordRecord;
> 
> begin
>   p := getpwnam('helio');
>   writeln(p.pw_dir);
> end.
> 
try changing this:
.....
var p: pPasswordRecord;
.....
writeln(p^.pw_dir);

ciao, ivan