паскаль! текстовые данные.

[кусака]

люди! помогите кто чем может!

1)в тексте(текст произвольный, в условии задачи не указан) убрать лишние пробелы, оставив по одному.

2)даны натуральное n число и символы S1...Sn. удалить из данной последовательности все группы букв вида abcd(последовательность символов в задаче не указана).

3) для каждого студента указаны фио и оценка по трем предметам(данные произвольные). требуется вычислить средний бал каждого студента и упорядочить по убыванию среднего балла

[DoDge_VipeR]

1) while pos('  ',s)<>0 do
delete(s,pos('  ',s),1);