Var tdt j :Kpr