Помогите с 4 задачами в Паскале.

[kvoevodin]

Ребят помогите пожалуйста нужно 4 задач на паскале позарез сделать!
1)Из элементов массива А[K], не превышающих заданную величину b, сформировать массив Y. K меньше или равно 20. а с индексом i больше или равно 0. b=3
2)Сформировать одномерный массив Y, элементы которого равны максимальным модулям элементов строк матрицы X[N,M]
3)В каждую из двух матриц добавить по строке, в которой элементы равны количеству отрицательных элементов в соответствующих столбцах.
4) Заданы три вектора x = ( x1.........,xn) Y=(y1..........,ym, Z = (z,.........zi ). n<=7. m<=9. i<=5. Упорядочить по возрастанию минимальные элементы каждого из этих векторов. (Вычисление минимального элемента)!

[Asix]

Что Вы делали и что не получается?
Какие есть свои мысли?? =))

Для начала нам интересны Ваши мысли и действия для решения задачи, дальше мы обязательно поможем и подталкнем =))

Мы не решаем за Вас, мы помогаем Вам понять!

Прочитайте теорию и пишите свои мысли. Будем вместе думать =))

[kvoevodin]

Проверьте на ошибки если не сложно 
3)const a=3;b=3;c=3;d=3;
var X:array[1..a] of array[1..b] of integer=((1,2,3),(-1,-2,-3),(-1,2,-3));
Y:array[1..c] of array[1..d] of integer=((1,2,3),(-1,2,-3),(-1,2,3));
i,ij,amp:integer;
begin
writeln('x:');
for i:=Low(X) to High(X) do begin
for ij:=Low(X) to High(X) do
if(x[ij]>0) then
write(' ',x[ij],' ')
else write(x[ij],' ');
writeln;
end;
for ij:=Low(X) to High(X) do begin
amp:=0;
for i:=Low(X) to High(X) do
if(x[ij]<0) then amp:=amp+1;
write(' ',amp,' ');
end;
write('<-added');
writeln;writeln;

writeln('y:');
for i:=Low(Y) to High(Y) do begin
for ij:=Low(Y) to High(Y) do
if(y[ij]>0) then
write(' ',y[ij],' ')
else write(y[ij],' ');
writeln;
end;
for ij:=Low(y) to High(y) do begin
amp:=0;
for i:=Low(y) to High(y) do
if(y[ij]<0) then amp:=amp+1;
write(' ',amp,' ');
end;
write('<-added');
writeln;
end.

4)const n=7;m=9;i=5;
var X:array[1..n] of real=(5,4,7,3,7,9,8);Y:array[1..m] of real=(4,8,5,2,7,3,40,5,4);Z:array[1..i] of real=(4,5,6,7,4);srt:array[1..3] of char=('X','Y','Z');minof:array[1..3] of real;ri:real;ix,ij,ro:integer;
begin
minof[1]:=X[1];
for ij:=2 to n do
if(X[ij]<minof[1])then minof[1]:=X[ij];
minof[2]:=Y[1];
for ij:=2 to m do
if(Y[ij]<minof[2])then minof[2]:=Y[ij];
minof[3]:=Z[1];
for ij:=2 to i do
if(Z[ij]<minof[3])then minof[3]:=Z[ij];
ri:=minof[1];
ix:=1;
for ij:=2 to 3 do
if(minof[ij]>ri)then begin
ri:=minof[ij];
ix:=ij;
end;
write('min of ',srt[ix],'=',ri,'>');
ri:=minof[1];
ro:=1;
for ij:=2 to 3 do
if(minof[ij]<ri)then begin
ri:=minof[ij];
ro:=ij;
end;
for ij:=1 to 3 do
if((not(ij=ro))and(not(ij=ix)))then write('min of ',srt[ij],'=',minof[ij],'>');
write('min of ',srt[ro],'=',ri);
end.

[@len@_k]

В задаче 4 лучше сделать поиск минимального в виде подпрограммы, упорядочение тоже сделать по классическому алгоритму упорядочения, а не вручную.  Задачу 4 я что-то не поняла. Может комментарии написать?