Осталось 2 задачи )

[Fraddy]

Помогите плз с двумя лабами.. ничего не успеваю( назадавали ппц на неделю 7 лаб...

вот первая:
1 Ввести строку текста. Может быть пустая строка или из одних пробелов.
Разделители: пробел ,/?.<;>:”!’*%. Слово- любая последовательность символов,
ограниченная с одной или двух сторон разделителями.
Удалить последние N слов, содержащих заданную подстроку К раз.

А вот ета потруднее:
2 Составить главную программу, в которой осуществляется ввод размеров матрицы и ее элементов, обращение к процедуре обработки и вывод результатов. Обработка предусматривает сортировку элементов строк (столбцов, диагоналей) матрицы. В процедуре обработки использовать вызов процедуры сортировки одномерного массива. Процедура сортировки должна быть обязательно с параметрами (передается размер вектора и сам вектор). Процедуры должны быть оформлены в виде модуля.

Как и что сортировать:
По возрастанию кольца матрицы (против часовой стрелки)

Метод:
Квадратичный выбор.

Заранее оч благодарен..

[kommunist]

И в чем проблема что не получается?

[Fraddy]

Не укладываюсь в срок.. задали контрольные по матике и лабы по инфе..
1 задача вот ето успел

uses crt;
const r:set of char=[' ',',','/','?','.','<','>',':',';','"','!',''','*','%'];

var s,c:string;
i,ns:byte;
F:boolean;
Begin
clrscr;
write('s=");
readln (s);
i:=1;
F:=true;
while i<=length(s) then 
{i - начало слова}
  Begin
    ns:=i;
    C:='';
    while (i<=length(s)) and NOT (s[i] in R) do
{Проход по слову}
    Begin
  if pos(s[i],c)=0 then c:- c+s;
inc (i);
end;

а во второй никак не пойму...

PS Извеняюсь.. забыл код поставить.. совсем крыша едет..