Листинг с реализацией сортировки вставками нужно переделать на сортировку Шелла

program abc;
const m=10; // разрядность матрици MxM
var
  mas:array[1..m,1..m] of integer;
  h:array[1..m] of integer;
  s,i,j,mdd,key,x,t,tk,tp:integer;
  ts : System.TimeSpan; {специальный тип .NET для работы со временем}
    ti: integer;
begin
var stopWatch := new System.Diagnostics.Stopwatch;
 stopWatch.Start;
 
// Генерация матрицы
writeln('Исходная матриця:');
  randomize;
  for i:=1 to m do begin
    for j:=1 to m do begin
      mas[i,j]:=random(100)-50;
     write(' ',mas[i,j],',');
    end;
  writeln;
  end;
  
  // нахождение х-к столбцов матрици(х-к матрици - сума елементов,которые >= 0 и они непарные
  for j:=1 to m do
    for i:=1 to m do begin
      if (mas[i,j]<0) and ((mas[i,j] mod 2) <> 0) then
        h[j]:=h[j]+abs(mas[i,j]);
    end;
       writeln();
 // вывод х-к матрицы
 for i:=1 to m do begin
 write(h[i],' ');
 end;
  
 
// сортировка
  for j:=2 to m do
    begin 
      key:=h[j];
      i:=j-1;
      while ((i>0)and (h[i]<key)) do
        begin
          for x:=1 to m do begin
            s:=mas[x,i];
            mas[x,i]:=mas[x,i+1];
            mas[x,i+1]:=s;
          end;
          h[i+1]:=h[i];
          i:=i-1;
        end;
      h[i+1]:=key;      
      end;
     ti:=0;
 
 writeln;
 writeln;
writeln('Отсортированая  матрица');    
for i:=1 to m do begin
for j:=1 to m do  write(' ',mas[i,j],',');
writeln;
end;
writeln;
// Вывод отсортированых х-к матрицы
for i:=1 to m do     write(h[i],' ');
writeln;
writeln;
 
ti:=0;
  while ti<10000000 do
    inc(ti);             
  stopWatch.Stop;
  ts := stopWatch.Elapsed;
  writelnFormat('Время роботы: {0:00}:{1:00}:{2:00}.{3:000}',ts.Hours, ts.Minutes, ts.Seconds, ts.Milliseconds);
 
end.

 { Сортировка Шелла }
  procedure ShellSort( var A : mas );
    const
      steps = 12;
    var
      i, j, l, k, p, n : Integer;
      x : itp;
      s : array [1..steps] of Integer;
    begin
      k := 1;
      { Формируем последовательность чисел -
        шаги, с которыми выбираем сортируемые подмассивы }
      for i := steps downto 1 do
        begin
          s[i] := k;
          k := k * 2 + 1;
        end;