стандартная сортировка пузырьком. кто может помочь?

[lamont61]

сорри, что здесь, но не нашёл раздела посвященному программированию. вопрос такой:

procedure BubbleSort(var Arr : TReal1DArray; const N : Integer);
var
I : Integer;
J : Integer;
Tmp : Double;
begin
i:=0;
while i<=N-1 do
begin
j:=0;
while j<=n-2-i do
begin
if Arr[j]>Arr[j+1] then
begin
Tmp := Arr[j];
Arr[j] := Arr[j+1];
Arr[j+1] := Tmp;
end;
Inc(j);
end;
Inc(i);
end;
end;

Входные параметры:
Arr - сортируемый массив.
Нумерация элементов от 0 до N-1
N - размер массива
Выходные параметры:
Arr - массив, упорядоченный по возрастанию.
Нумерация элементов от 0 до N-1

надо распараллелить, чтобы можно было запускать на множестве компьютеров. помогите