Update tpa.pas

nanananana