Здравствуйте, Бондаренко Сергей Николаевич!
Соответственно правилам, при наличии в вопросе более чем одной задачи эксперт в праве ответить на любую по выбору. Отвечу на первую.

Дана строка символов. Известно, что первый символ отличен от пробела и что среди остальных сим-волов имеется хотя бы один пробел. Рассматриваются символы s1,..., sn - символы, предшествующие первому пробелу. Преобразовать последовательность s1,..., sn, удалив из каждой группы идущих подряд цифр, в которой более двух цифр и которой предшествует точка, все цифры, начиная с третьей (напри-мер, ab+0.1973-1.1 преобразуется в ab+0.19-1.1).

Для поиска пробела в строке пользуемся функцией pos (<подстрока>,<строка>). Она возвращает индекс первого вхождения подстроки в строку. Для удаления символов используем процедуру delete (<строка>,<позиция>,<количество>). Остальное должно быть ясно из комментариев.
[code h=300]program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

Var s: string; //строка
ps, pd, i: integer; //позиция пробела, позиция точки, текущий символ
begin
readln (s); //получаем строку
ps:= pos (' ', s); //получаем позицию пробела
i:= 1; //начинаем с первого символа
while (i<ps) do //пока не дойдём до пробела
begin
while (i<ps) and (s[i]<>'.') do inc(i); //доходим до первой точки
pd:= i; //запоминаем позицию точки
inc (i); //переходим на символ за точкой
while (i<ps) and (ord(s[i])>=48) and (ord(s[i])<= 57) do inc(i);
//пока не кончится строка и текущий символ - цифровой, проходим дальше
if (i-pd-1>2) then begin //если число цифр больше двух
delete (s, pd+3, i-pd-3); //удаляем все с третьей
ps:= ps-(i-pd-3); //уменьшаем позицию пробела на число удалённых символов
end;
end;
writeln ('Result: ', s); //выводим результат
readln; //чтобы не закрылось окно
end.
[/code]
Проверено в Delphi 7.
Удачи!

Здравствуйте, Бондаренко Сергей Николаевич!
Ответ на вопрос №2. Код в приложении.
Использование: в функцию OnlyLowerSimbols() в качестве параметра передаётся любая строка текста. Каждая буква из этой строки текста сверяется с набором русских строчных букв и заносится в хранилище букв типа TStringList. Буква проверяется на существование в хранилище с помощью функции CheckExists() - если такая уже есть, то буква не заносится, если нет, то заносится. После того, как все буквы занесены, происходит их сортировка с помощью встроенного в хранилище метода Sort.
Вывод строки отсортированных букв осуществляется любым удобным для Вас способом (т.к. способов очень много, я не стал этого делать в программе), например:
Memo1.Lines.Add(OnlyLowerSimbols(Какая-то_строка_текста));

Приложение:
{Это вспомогательная функция проверяет, есть ли в хранилище List строка
checkstring. Если есть - возвращается True, если нет - False}
function CheckExists(checkstring: string; List: TStringList): boolean;
Var
i: integer;
Begin
Result:=False;
For i:=0 To List.Count-1 Do
If checkstring=List[i] Then
Result:=True;
End;

{Функция выискивает в передаваемой ей, в качестве параметра, строе
s строчные гласные буквы. Потом сортирует их по алфавиту
и возвращает результат в виде строки символов}
function OnlyLowerSimbols(s: string): string;
Var
i: integer;
LowerSimbolsRus: set of 'а'..'я'; //Набор русских букв
len: integer; //Длина строки
st: TStringList; //Объект хранения найденых символов и для сортировки
Begin
Result:='';
//Определяем длину строки
len:=Length(s);
//Если она больше ноля, т.е. строка непустая
If len>0 Then
Begin
//Правильный набор букв
LowerSimbolsRus:=['а','е','ё','и','й','о','у','ы','э','ю','я'];
//Создаём объект-хранилище найденых букв
st:=TStringList.Create;
//Просматриваем всю строку от начала до конца
For i:=1 To len Do
//Если буква входит в искомый набор
If (s[i] in LowerSimbolsRus) Then
//Если такой буквы в хранилище ещё нет
If not CheckExists(s[i], st) Then
st.Add(s[i]); //Добавляем символ в хранилище
//Сортировка символов в хранилище
st.Sort;
End;
Result:=st.Text;
End;