Несколько задач на масивы, помогите пожалста Опции

[Неясыть]

Люди помогите! Умираю! Осталось две пары а мне 4 лабы здать надо. Очень срочно. Я больше ничего просить не буду! Честное слово. Я вас когдо-нибудь обманывал. А ты говоришь!!!!
Ну дак вот --- вот они:
массивы

1. сформировать новый массив из элементов массива М(15), встречающ. в этом массиве один раз
2. Определить представляют ли собой элементы массива А(20) возрастающую последовательность

матрицы

1. дана вещественная матрица М(9*8) преобразовать матрицу: поэлементно вычесть последнюю строку из всех строк, кроме последней
2. дана целочисленная матрица В(7*7). Найти номера столбцов, элементы каждого из кот. образуют возрастающую последовательность(b(1j)‹b(2j)..‹b(7j))

процедуры и ф-ции

1. в массивах А(5*7) и В(7*5) найти максимумы, поменять их местами
2. вычислить Z=(S1+S2)/(S1-S2), где S1-сумма положительных элементов массива А(70), S2-сумма отрицательных элементов массива В(60)... суммы вычислять в одной подрограмме

строки

1. дана строка символов. удалить из нее все кратные рядом стоящие одинаковые символы,оставив по одному(АААВВСС--›АВС)
2. дана строка символов до точки. Подсчитать в ней число латинских букв.

Я в вса верю люди......помогите .......с меня магар...........
Спасибо! можно на е-майл <censored>

[Jahnerus]

Функции и процедуры
1

Код

uses
 crt;
type ma3x=array[1..7,1..7] of integer;
var a,b:ma3x;
 i1,i2,j1,j2:byte;
 r:integer;

procedure out_ma3x(mas:ma3x; m,n:byte);
var i,j:byte;
begin
 for i:=1 to m do begin
   for j:=1 to n do write(mas[i,j]:4);
   writeln;
 end;
end;

procedure in_ma3x(var mas:ma3x; m,n:byte);
var i,j:byte;
begin
 randomize;
 for i:=1 to m do begin
   for j:=1 to n do begin
     mas[i,j]:=random(100)-50;
     write(mas[i,j]:4);
   end;
   writeln;
 end;
end;

procedure srch_max(mas:ma3x; m,n:byte; var i_max:byte; var j_max:byte);
var
 max,i,j:integer;
begin
 max:=mas[1,1];
 i_max:=1;
 j_max:=1;
 for i:=1 to m do begin
   for j:=1 to n do begin
     if mas[i,j]>max then begin
       i_max:=i;
       j_max:=j;
       max:=mas[i,j];
     end;
   end;
 end;
end;

begin
 clrscr;
 writeln('Massiv 1 do preobrazovaniya');
 in_ma3x(a,5,7);
 writeln('Massiv 2 do preobrazovaniya');
 in_ma3x(b,7,5);
 srch_max(a,5,7,i1,j1);
 srch_max(b,7,5,i2,j2);
 r:=a[i1,j1];
 a[i1,j1]:=b[i2,j2];
 b[i2,j2]:=r;
 writeln('Massiv 1 posle preobrazovaniya');
 out_ma3x(a,5,7);
 writeln('Massiv 2 posle preobrazovaniya');
 out_ma3x(b,7,5);
 readln;
end.