Сортировка

[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;

[GetMax]

Alex_12Proxy, разбирайтесь

Procedure SortMas();
Var
  ii,jj,tmp,count:Byte;
  change:Boolean;
Begin
  for jj := 1 to 4 do
    Begin
      count:=4;
      Repeat
        change:=false;
        for ii := 1 to count-1 do
          if mas[ii,jj] < mas[ii+1,jj]  then
          Begin
            tmp:=mas[ii,jj];
            mas[ii,jj]:=mas[ii+1,jj];
            mas[ii+1,jj]:=tmp;
            change:=true
          End;
          dec(count)
      Until Not change ;
    End;
End;