Внутренняя сортировка в массиве., ): Опции

[Beowulf 13th]

Доброго времени суток всем!

Народ, помажите. Нужно написать программу, которая будет сортировать отрицательную последовательность в массиве. То есть, например:
массив
-1;-3;-6;-4;-2;2;2;2;2;2;
отсортирует в:
-6;-4;-3;-2;-1;2;2;2;2;2;

Без стандартных функций Java или C не могу ))%

Вот то у меня получилось, но работает как то криво. Точнее не криво, а не правильно. Если отрицательные числа идут в начале - то все ок, а если сначала идет любое положительное - лагает ):

program sort_array; 
uses CRT;

type M = array[1..10] of integer;

var inp,sort:M;
var i,j,t,n_i:integer;
var n:boolean;

procedure setArray(var M:M);
        begin
                writeln('Input array`s element');

                for i := 1 to 10 do begin
                        readln(M[i]);
                end;
        end;

procedure getSortArray(var M1:M);
//var temp:M;
        begin
                n := true;
                for i := 1 to 10 do begin
                        for j := 0 to 10 - i do begin
                                if M1[i] AND M1[i+1] < 0 then begin
                                        if M1[i] > M1[i+1] then begin
                                                t := M1[i];
                                                M1[i] := M1[i+1];
                                                M1[i+1] := t;
                                        end;
                                end;
                        end;
                end;

                writeln();
                writeln('Sort array: ');

                for i := 1 to 10 do begin
                        writeln('Array[',i,'] = ',M1[i]);
                end;
        end;

Begin
        setArray(inp);

        getSortArray(inp);
End.

ЗЫ. Паскаль изуаю уже третий час... (((8

вот так вот:

[beowulf@localhost pascal]$ ./sort_array
Input array`s element
1
2
-5
-6
-2
-4
-5
-10
0
3

Sort array:
Array[1] = 1
Array[2] = 2
Array[3] = -6
Array[4] = -5
Array[5] = -4
Array[6] = -5
Array[7] = -10
Array[8] = -2
Array[9] = 0
Array[10] = 3
[beowulf@localhost pascal]$