Как переделать код сортировки вставкой на быструю сортировку?

//процедура обмена двух элементов
procedure Swap(var a, b: integer);
var
  tmp: integer;
begin
  tmp := a;
  a := b;
  b := tmp;
end;
 
var
  a: array[0..100 - 1, 0..100 - 1] of integer;
  i, j, k: byte;
  x, n: integer;
 
begin
  readln(n);
  randomize;
  writeln('Исходная матрица:');
  for i := 0 to n - 1 do
  begin
    for j := 0 to n - 1 do
    begin
      a[i, j] := 0 + random(10);
      write(a[i, j]:4);
    end;
    writeln;
  end;
  for i := 0 to n * n - 2 do
    for j := i + 1 to n * n - 1 do
      //выше главной по возрастанию
      if ((i mod n > i div n) and (j mod n > j div n) and (a[i div n, i mod n] > a[j div n, j mod n]))
      //ниже главной по убыванию
      or ((i mod n < i div n) and (j mod n < j div n) and (a[i div n, i mod n] < a[j div n, j mod n]))
        then 
        Swap(a[i div n, i mod n], a[j div n, j mod n]);
  
  writeln;
  writeln('Отсортированная матрица:');
  for i := 0 to n - 1 do
  begin
    for j := 0 to n - 1 do
      write(a[i, j]:4);
    writeln;
  end;
end.