Паскаль. FindFirst (...)

[ajaxtpm]

Парни, такое дело, не могу разобраться с PChar, или в чём там дело.

program my ;
uses Windos , Crt ;

var
  Info : TSearchRec ;
  Count : integer ;
  Path : string
  P : PChar ;
begin
  GetMem ( P , 250 ) ;
  write ( '  Enter dir path : ' ) ;
  readln ( P^ ) ;
  writeln ( P^ ) ;
{  Path := Concat ( Path , '\*' ) ;
  Path [ length ( Path ) + 1 ] := #0 ;
  Path := 'C:\*'+#0 ;}  
  FindFirst ( P , faAnyFile and faDirectory , Info ) ;
  if ( DosError <> 0 ) then
  begin
    writeln ( '  Error of opening dir' ) ;
   { exit ;}
  end ;
  If ( Count = 0 ) then
  repeat
    writeln ( Info.Name , Info.Size : 15 ) ;
    FindNext ( Info ) ;
  until DosError <> 0 ;

  writeln ( Path ) ;
  readln ;
end.

Не работает, пишет известную ошибку, мол, нифига не верно
хотя с другой стороны FindFirst ( 'C:\*' , faAnyFile and faDirectory , Info ) ;

В чём же дело ?


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.