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