Сортировка методом пузырька, параллельное и последовательное время выполнения

procedure ParallelBubble(i,j,k: integer; arr: array [1..m] of integer);
begin
    {$omp parallel for }
    for i := 1 to m-1 do
        for j := 1 to m-i do
            if arr[j] > arr[j+1] then begin
                k := arr[j];
                arr[j] := arr[j+1];
                arr[j+1] := k;
            end;
end;
            
procedure Bubble(i,j,k: integer; arr: array [1..m] of integer);
begin
    for i := 1 to m-1 do
        for j := 1 to m-i do
            if arr[j] > arr[j+1] then begin
                k := arr[j];
                arr[j] := arr[j+1];
                arr[j+1] := k;
            end;
end; 
 
    const
    m = 100;
 
    begin
    randomize;
    var arr: array[1..m] of integer;
    i; j; k: integer;
    
    for i := 1 to m do begin
        arr[i] := random(256);
        write (arr[i]:4);
        end;
        
    var d:= Milliseconds;
    SortBubble(i,j,k,arr);
    writeln('Последовательная сортировка: ',Milliseconds-d,' миллисекунд');
    var d:= Milliseconds-d;
    ParallelBubble(i,j,k,arr);
    writeln('Параллельная сортировка: ',Milliseconds-d,' миллисекунд'); 
end.