Массивы в Паскале

[chertovka.]

помогите решить плиз....


1. Написать программу сортировки элементов массива по возрастанию или убыванию (пользователь выбирает способ сортировки).

2. По заданной матрице A размерностью n*m сформировать вектор z размерностью m, состоящий из арифметических средних столбцов матрицы.

[Chudo4258]

2. По заданной матрице A размерностью n*m сформировать вектор z размерностью m, состоящий из арифметических средних столбцов матрицы.

for j:=1 to m do
begin
 s:=0;
 for i:=1 to n do
  s:=s+a[i,j];
 z[j]:=s/n;
end;