assigned.pas

  {Assigned.PAS}  
 
  {Пример программы для функции Assigned }
 
  Var P : Pointer;
 
  Begin 
   P:=NIL;
   If Assigned(P) Then Writeln ('Это вы не увидите');
   P:=@P;
   If Assigned(P) Then Writeln ('А это - увидите !');
  End.