Source code in the delphi programming language

program JortSort;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils,
  System.Generics.Collections,
  System.Generics.Defaults;

type
  TArrayHelper = class helper for TArray
  public
    class function JortSort(const original: TArray): Boolean; static;
  end;

{ TArrayHelper }

class function TArrayHelper.JortSort(const original: TArray): Boolean;
var
  sorted: TArray;
  i: Integer;
begin
  SetLength(sorted, Length(original));
  copy(original, sorted, Length(original));
  Sort(sorted);

  for i := 0 to High(original) do
    if TComparer.Default.Compare(sorted[i], original[i]) <> 0 then
      exit(False);
  Result := True;
end;

var
  test: TArray;
begin
  // true
  test := [1, 2, 3, 4, 5];
  Writeln(TArray.JortSort(test));

  // false
  test := [5, 4, 3, 2, 1];
  Writeln(TArray.JortSort(test));

  Readln;
end.