Помогите, плиз, с массивами?!

[Маськ@]

1) Задана квадратная матрица размером m x m. Исключить из неё строку и столбец, на пересечении которых находится минимальный элемент главной диагонали .
2) Элементы массива генерируются случайным образом в заданном диапазоне [-22, 132]. Дан массив целых чисел, содержащий 20 элементов, Записать в этот же массив сначала все отрицательные числа и нули, затем все положительные, сохраняя порядок их следования .

[Armorer]

по второй задаче.
Самое простое пройти массив в два прохода. Первый раз копировать в дополнительный массив отрицательные чиста и нули, второй положительные. Так как в условии это не оговорено, я считаю что вторым массивом пользоваться можно.

a, atemp - массивы, объявления переменных и иниц. я опускаю.

Count := 0;
for i := 0 to High(A) do
if a[i] <= 0 then 
begin 
atemp[count] := a[i];
inc(count);
end;

for i := 0 to High(A) do
if a[i] > 0 then 
begin 
atemp[count] := a[i];
inc(count);
end;

a := atemp;

Можно, конечно, решить более эфективно, но раз возникают вопросы по таким задачам, то, по моему, лучше понятнее чем эфективнее.