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

[MikrON]

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

[xds]

Задача 3:

Код

program DiagSort;

var
 a: array[1..100, 1..100] of Integer;
 n, i, j, jm, t: Integer;

procedure WriteMatrix;
var
 i, j: Integer;
begin
 for i := 1 to n do
   begin
     for j := 1 to n do
       Write(a[i, j]: 3);
     Writeln;
   end;
end;

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

 { Генерация матрицы }
 Randomize;
 for i := 1 to n do
   for j := 1 to n do
     a[i, j] := -9 + Random(19);
 Writeln('Исходная матрица:');
 WriteMatrix;
 Writeln;

 { Сортировка главной диагонали }
 for i := 1 to n - 1 do
   begin
     jm := i;
     for j := i + 1 to n do
       if a[j, j] < a[jm, jm] then jm := j;
     t := a[i, i];
     a[i, i] := a[jm, jm];
     a[jm, jm] := t;
   end;

 { Вывод обработанной матрицы }
 Writeln('Матрица после сортировки главной диагонали:');
 WriteMatrix;
end.