Сортировка методом прочесывания числовой последовательности

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  a: array of Integer;
  s, str: string;
  i, h, gap, temp,j: Integer;
  done: Boolean;
begin
  SetLength(a, 0);
  Memo2.Lines.Clear;
  h := 1;
 
  for i := 0 to Memo1.Lines.Count - 1 do
  begin
    if Trim(Memo1.Lines[i]) <> '' then
    begin
      SetLength(a, Length(a) + 1);
      s := Trim(Memo1.Lines[i]);
      if (StrToInt(s) > 25) or (StrToInt(s) < 0) then
      begin
        Memo2.Lines.Add('Введено значение не из диапазона');
        Exit;
      end
      else
        a[High(a)] := StrToInt(s);
    end;
  end;
 
  gap := Length(a);
  while True do
  begin
    done := True;
    for i := 0 to Length(a) - gap - 1 do
    begin
      if (i + gap) < Length(a) then
      begin
        if a[i] > a[i + gap] then
        begin
          temp := a[i];
          a[i] := a[i + gap];
          a[i + gap] := temp;
          done := False;
 
          // Отображаем числа, которые меняются местами
          Memo2.Lines.Add('Меняем местами: ' + IntToStr(temp) + ' и ' + IntToStr(a[i]));
 
          // Отображаем состояние массива после каждого изменения
          str := 'Текущее состояние: ';
          for j := 0 to High(a) do
          begin
            str := str + IntToStr(a[i]) + ' ';
          end;
          Memo2.Lines.Add(str);
        end;
      end;
    end;
 
    if done and (gap = 1) then
      break;
 
    gap := Trunc(gap / 1.3); // Заменим вычисление нового значения gap на более стандартный вариант
    if gap < 1 then
      gap := 1;
 
    // Отображаем состояние массива в конце каждой итерации
    Memo2.Lines.Add('Шаг номер ' + IntToStr(h));
    Inc(h);
    str := '';
    for i := 0 to High(a) do
    begin
      str := str + IntToStr(a[i]) + ' ';
    end;
    Memo2.Lines.Add(str);
  end;
end;
 
end.