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

[Неясыть]

Люди помогите! Умираю! Осталось две пары а мне 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>

[ShadowWatcher]

Матрицы:
1

Код

Var
 m:Array[0..8,0..7] Of Double;

Procedure Print;
Var
 i,j:Integer;
Begin
 For i:=0 To 7 Do
 Begin
   For j:=0 To 8 Do
     Write(m[j,i]:4:2);
   WriteLn
 End
End;

Var
 i,j:Integer;

Begin
 For i:=0 To 8 Do
   For j:=0 To 7 Do
     m[i,j] := Random(100);
 Print;
 WriteLn('------------------------------------');
 For i:=0 To 6 Do
   For j:=0 To 8 Do
     m[j,i] := m[j,i] - m[j,7];
 Print
End.

2

Код

Var
 b:Array[0..6,0..6] Of Integer;
 i,j:Integer;
 bGood:Boolean;
Begin
 For i:=0 To 6 Do
   For j:=0 To 6 Do
     b[i,j] := Random(100);
 For i:=0 To 6 Do
 Begin
   bGood := True;
   For j:=1 To 6 Do
     bGood := bGood And b[j,i] < b[j-1,i];
   If bGood Then
     WriteLn('Column #',i,' is good')
 End
End.

Вроде так...