c:\progs\tp\tpc pho.pas