В TON_P 6-я строка. После Q=> впишите внутреннюю переменную. Ошибка уйдёт.
В TP_P то же самое в строках 6,7 и 8. В строке 9 RESET1:= нельзя оставлять пустое место.