Работа с текстом, (строки) Опции

[MikrON]

Приветствую вас программисты 20 века=)
у меня большая проблема... я не знаю как сделать нескольк программ=/
Если вы нелень помогите студенту первого курса...
задачи следующие
1. ЗАДАН ТЕКСТ. НАПЕЧАТАТЬ СЛОВА ЭТОГО ТЕКСТА В ПОРЯДКЕ УВЕЛИЧЕНИЯ КОЛИЧЕСТВА СИМВОЛОВ В СЛОВАХ.
2. ЗАДАН ТЕКСТ. НАПЕЧАТАТЬ ТЕ СЛОВА, ПЕРЕД КОТОРЫМИ НАХОДИТЬСЯ СЛОВА С МЕНЬШИМ КОЛИЧЕСТВОМ БУКВ.
3. 'МЯТРИЦЯ' ЗАДАНА МАТРИЦА ЦЕЛЫХ ЧИСЕЛ. ВЫПОЛНИТЬ СОРТИРОВКУ ЭЛЕМЕНТОВ ГОАВНОЙ ДИАГОНАЛИ МАТРИЦЫ ПО ВОЗРАСТАНИЮ.
Из всех 12 индивидульных задания я сдедал 9 сам
:P Эти для меня ад ПОМОГИТЕ... :p2:
Отблагодарю и надеюсь тоже чем нибудь помогу... :yessss:

[xds]

Задача 2:

Код

program Words2;

var
 s: String;
 PrevWord, PrevLen,
 CurWord, CurLen: Integer;
 i: Integer;
 f: Boolean;

begin
 Write('s>');
 Readln(s);

 s := s + ' ';
 f := False;
 PrevLen := MaxInt;
 for i := 1 to Length(s) do
   if (s[i] = ' ') or (s[i] = #9) then
     begin
       if f then
         begin
           CurLen := i - CurWord;
           if PrevLen < CurLen then
             Writeln(Copy(s, CurWord, CurLen));
           PrevLen := CurLen;
           f := False;
         end
     end
   else
     if not f then
       begin
         PrevWord := CurWord;
         CurWord := i;
         f := True;
       end;
end.