2 задачи 1 курс

[Fraddy]

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

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

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

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

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

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




Не укладываюсь в срок.. задали контрольные по матике и лабы по инфе..
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;

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

[Fraddy]

  
uses crt;      
const r:set of char=[' ',',','/','?','.','<','>',':',';','"','!',''','*','%'];      
     
var g,s,c:string;      
i,ns:byte;      
F:boolean;      
Begin      
clrscr;      
write('s=");      
readln (s); 
writeln('g=');
readln(g);     
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;  
if pos(g,c)>=1 then
  begin
    delete(s,ns,i-ns);
     f:=false;
    i:=ns-1
  end;
  end;
i:=i+1
end;
is f then
writeln ('no');
else
writeln(s);
readkey
end.
end.

гдето я ошибся... где именно?