Задачи на обработку двухмерного массива (Паскаль)

[Янка88]

1.Составьте программу прибавляющую к каждому элементу строки двумерного массива A(M,M) элемент принадлежащий этой строке и главной диагонали.
2. Составьте программу позволяющую выяснить равен ли наименьший элемент двумерного массива A(N,M) половине максимального.
3. Составьте программу поиска наименьшего из положительных элементов двумерного массива S(N,M) стоящих в строках, элементы которых образуют арифметические прогрессии.
Помогите пожалуйста, заранее спасибо!

[ZX Spectrum-128]

2.
Тут http://programmersforum.ru/showthread.php?t=70310
Смотрим, как искать макс и мин
А дальше хорошо и просто:

If min=max/2 then
 Write('ага')
Else
 Write('не-а');