Заменить сортировку вставками сортировкой пузырьком

program main;
 
//True - требуется перестановка. Иначе - False.
function Compare(const Num1, Num2 : Word) : Boolean;
const
  Base = 10;
var
  Num, Dig1, Dig2, Sum1, Sum2 : Word;
begin
  //Параметрты первого числа.
  Num := Num1;
  Sum1 := 0;
  repeat
    Dig1 := Num mod Base;
    Sum1 := Sum1 + Dig1;
    Num := Num div Base;
  until Num = 0;
  //Параметрты второго числа.
  Num := Num2;
  Sum2 := 0;
  repeat
    Dig2 := Num mod Base;
    Sum2 := Sum2 + Dig2;
    Num := Num div Base;
  until Num = 0;
 
  Compare := False;
  if Dig1 < Dig2 then //Сравнение старших разрядов.
    Compare := True
  else if Dig1 = Dig2 then begin
    if Sum1 < Sum2 then //Сравнение сумм.
      Compare := True
    else if Sum1 = Sum2 then begin
      if Num1 < Num2 then //Сравнение чисел.
        Compare := True
    end;
  end;
end;
 
const
  M = 8;
  const c:array[1..M] of Word=(1101,221,401,5505, 505, 41, 50, 111);
var
  Arr : array[1..M] of Word;
  i, j : Integer;
  Num : Word;
  S : String;
  temp:Integer;
begin
  repeat
    Writeln('Исходный массив:');
    for i := 1 to M do begin
      Arr[i] := c[i];
      if i > 1 then Write(', ');
      Write(Arr[i]);
    end;
    Writeln;
 
    //Сортировка методом вставок.
    {for i := 1 + 1 to M do 
    begin
      j := i;
      Num := Arr[i];
      while (j > 1) and Compare(Arr[j - 1], Num) do begin
        Arr[j] := Arr[j - 1];
        Dec(j);
      end;
      Arr[j] := Num;
    end;}
    
    //Сортировка пузырьком
    for i:=1 to M-1 do
      for j:=1 to M-i do
        begin
          if Compare(arr[i],arr[i+1]) then
            begin
              temp:=arr[i];
              arr[i]:=arr[i+1];
              arr[i+1]:=temp;
            end;
        end;
 
    Writeln('Массив после сортировки:');
    for i := 1 to M do begin
      if i > 1 then Write(', ');
      Write(Arr[i]);
    end;
    Writeln;
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.

    //Сортировка пузырьком
    for i:=1 to M-1 do
      for j:=i+1 to M do
        begin
          if Compare(arr[i],arr[j]) then
            begin
              temp:=arr[i];
              arr[i]:=arr[j];
              arr[j]:=temp;
            end;
        end;

//сортировка "пузырьком"
...
for i:=2 to M do
  for j:=M downto i do
...
 
//еще вариант "пузырька"
...
for i:=M downto 2 do
        for j:=2 to i do
...
 
 
// ваш вариант - это не "пузырек", а линейная сортировка (сортировка отбором)
...
for i:=1 to M-1 do
      for j:=i+1 to M do
...