Задачи на Паскале. Строковые процедуры и функции

[Мент]

Ребата, пожалуйста помогите решить задачки
ЛЮди очень надо помоги кто чем может!

1 Задача. Строковые процедуры и функции.

Строка Т состоит из слов, разделенных пробелами. Удалить слова, начинающиеся с заглавных букв.

2 Задача. Двумерные массивы.

Составить программу выполнения действий над матрицами, максималь-но используя возможности программирования, предусмотреть одновременный вывод на экран исходной матрицы и результата:

Матрица М состоит из 7 строк, 9 столбцов. Найти максимальный по абсолютной величине элемент и поменять его местами с первым элементом.

[-=<[Evklidd]>=-]

Во-первых, все ваши три темы вообще закрыть могут за такие названия! Во-вторых, как сами думаете решать?

[-=<[Evklidd]>=-]

Вот для начала задача № 1:

program pro26;
var
 zaglav: set of char;
 t: string;
 i, k: integer;
 b: boolean;
begin
 zaglav:= ['A'..'Z'];
 b:= false;
 i:= 1;
 writeln('Vvedite stroku: ');
 readln(t);
 repeat
  begin
   if (t[i] in zaglav) and (t[i-1] = ' ') then
    begin
     k:= i;
     repeat
      inc(k);
     until (t[k] = ' ') or (t[k] = '.') or (k = Length(t)+1);
     if (t[k] = '.') or (k = Length(t)+1) then
      b:= true;
     Delete(t,i-1,k-i+1);
     dec(i);
    end;
   inc(i);
  end;
 until (i = Length(t)+1) or b;
 writeln('Ispravlennaia stroka: ',t);
 readln;
end.

по второй хотелось бы ваши наработки сначала увидеть

[puporev]

В приведенном коде не удаляется слово с заглавной буквы, если оно стоит первым, пробовал внести небольшие коррективы, не получилось.
Вот еще вариант решения, в нем правда остаются лишние пробелы, которые нужно дополнительно удалять (а можно не удалять, т.к. в условии сказано только про слова), но тем не менее код такой же длины.
Лучше решать с дополнительной строкой, но преподаватели этого не любят.

uses crt;
const zb=['A'..'Z','А'..'Я','Ё'];
var T:string;
    i:integer;
begin
clrscr;
write('T:');readln(T);
writeln;
i:=1;
while i<=length(T)-1do
   begin
     if ((T[i-1] =' ') and (T[i] in zb))or((i=1)and(T[i] in zb))
      then
       begin
        while(T[i]<>' ')and(i<=length(T)) do
        delete(T,i,1);
       end;
     inc(i);
   end;
{--------------------------------}
for i:=length(T)downto 1 do  {udalenie lishnih probelov mozno ubrat}
  begin
   while pos('__ ',T)>0 do  {'__ ' это два пробела}
   delete(T,pos('__ ',T),1);
   if T[1]=' 'then delete(T,1,1);
 end;
{---------------------------------}
write(T);
readln
end.