Помогите с функцией.

[Blekzet]

"«Перенести» в начало списка все отрицательные элементы, вернуть количество переносов." Можно не писать код программы, главное помогите понять, как это правильно отсортировать.

[ViktorR]

Например:

const n = 10;
var i, j, m : integer;
   a : real;
   mas : array[1..n] of real;
begin
{...
    инициируем массив, например, рандомно
 ...
}
   j := 1;
   m := 0;
   for i := 1 to n do
      if mas[i] < 0 then {выполним перестановку}
      begin
         a := mas[j];
         mas[j] := mas[i];
         mas[i] := a;
         if i <> j then {элемент перемещается}
            m := m + 1; {число перестановок}
         j := j + 1;
      end;
{...
   вывод необходимой информации
 ...
}
end.

Как-то так, ...