Сортировка

[Alex_12Proxy]

Помогите дописать программу по сортировке...
Дана матрица А(4х4). Определить количество элементов матрицы, лежащих вне интервала [-2,4]. Отсортировать элементы каждого столбца матрицы по убыванию.

Program B22;
const
n=4;
m=4;
var
x,i,j:integer;
kol:real;
a:array[1..n,1..m] of real;
begin
kol:=0;
Writeln ('Введите матрицу А(4х4)');

for i:=1 to n do
for j:=1 to m do
read (a[i,j]);
readln;

for i:=1 to n do
for j:=1 to m do
if (a[i,j]<-2) or (a[i,j]>4)
then kol:=kol+1;

Writeln('Колличество элементов=',kol);
end;