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

[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]$

[volvo]

Комбинируем: Нужна помощь по массивам
и
FAQ: Методы сортировки

Получаем:

program sort_array;
uses CRT;

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

var
  inp:M;

procedure setArray(var M1:M);
var i: integer;
begin

  writeln('Input array`s element');
  for i := 1 to 10 do begin
      readln(M1[i]);
  end;

end;

procedure getSortArray(var arr:M);
var T, i, j, last_neg: integer;
begin

  last_neg := 0;
  for i := 1 to n do begin
    if arr[i] < 0 then begin
      inc(last_neg); T := arr[i];
      for j := i downto last_neg + 1 do
        arr[j] := arr[j - 1];
      arr[last_neg] := T;
    end;
  end;

  for j := 1 to last_neg do begin

    for i := last_neg downto j+1 do begin
      if arr[i-1] > arr[i] then begin
        t := arr[i-1];
        arr[i-1] := arr[i];
        arr[i] := t;
      end;
    end;

  end;

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

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

end;

Begin
  setArray(inp);
  getSortArray(inp);
End.

Тестировалось на массиве: (-1, -3, 2, -4, -2, 2, -6, 2, 2, 2)

[Beowulf 13th]

он не должен сбивать все последовательности отрицательных чисел в начало массива.

то есть он должен сортировать подряд стоящие отрицательные числа.

-2 -3 2 5 2 -3 -4 -7 -5
-3 -2 2 5 2 -7 -5 -4 -3

чтобы он так все сбил в начало у меня тоже получается )%

[volvo]

Ах, вот оно что тебе нужно

procedure getSortArray(var arr:M);
var T, i, j: integer;
begin

  for j := 1 to n do begin

    for i := n downto j+1 do begin
      if (arr[i-1] < 0) and (arr[i] < 0) then
        if arr[i-1] > arr[i] then begin
          t := arr[i-1];
          arr[i-1] := arr[i];
          arr[i] := t;
        end;
    end;

  end;

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

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

end;

[Beowulf 13th]

ВООООООООТ ТАКОООООООЕ БОЛЬЧУЧЕЕЕ СПАСИБО! (: