задача не сложная, но есть пару вопрос:
Считывание сроки происходит с клавиатуры или с файла?
И Вывод готового на моник или в файл?
В принципе готов помочь)

Алгоритм такой:
1) Обнулить переменную t_number:integer; (t_number:=0;)
2) Произвести прогон в цикле строку на наличие букв "т". При нахождение символа сделать: t_number:=t_number+1;
3) Обнулить переменную one_number:integer; (one_number:=0;)
4) Произвести прогон в цикле строку наличие пробела если пробел найдет проверить не является ли следующий символ "1" если является, то one_number:=one_number+1;. Но учесть, один маленький нюанс: Если первый символ 1 то ввести условие if ... then ... else которое при условии что 1 первая прибавляет счетчик one_number.
5) Сравнить переменные t_number и one_number.
6) Либо осуществить прогон на изменение первого слова на точки либо удалить все запятые. Все зависит от п.5.
7) Вывести на экран или в файл.

Алгоритм есть. Я думаю после такого написать не сложно)))
Ну если нужна помощь пиши. на всякий случай: icq487799972.

Все задача решена. Просьба автора выложить, другим может надо будет...