Не могу разобраться в быстрой сортировке на Delphi

[OverTeam]

Не получается реализовать быструю сортировку в среде Delphi...нашел код, выдает ошибку, в чем дело?
Вот код:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, StdCtrls, Classes,
  Controls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
type
  Tsort = array [1..10] of integer;
var
  Form1: TForm1;

implementation

{$R *.dfm}

function Partition(var Arr: Tsort; start, finish: integer) : integer;
var x, i, j: integer;
begin
  x := Arr[start];
  i := start - 1;
  j := finish + 1;
  while true do
  begin
    repeat
      dec(j);
    until (Arr[j] <= x);
    repeat
      inc(i);
    until (Arr[i] >= x);
    if i < j then
    begin
      Arr[i] := Arr[i] + Arr[j];
      Arr[j] := Arr[i] - Arr[j];
      Arr[i] := Arr[i] - Arr[j];
    end
    else
    begin
      result := j;
      break;
    end;
  end;
end;

procedure QuickSort(var Arr: Tsort; start, finish: integer);
var part: integer;
begin
  if start < finish then
  begin
    part := Partition(Arr, start, finish);
    Quicksort(Arr, start, part);
    QuickSort(Arr, part + 1, finish);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  sort: Tsort;
  i: integer;
begin
  randomize;
  for i := 1 to length(sort) do
  begin
    sort[i] := random(50);
    memo1.Lines.Add(inttostr(sort[i]));
  end;
  memo1.Lines.Add('');
  QuickSort(sort, 1, length(sort));
  for i := 1 to length(sort) do
    memo1.Lines.Add(inttostr(sort[i]));
end;

end.

[RinatV]

Написали бы хоть какая ошибка конкретно, случайно не
[Fatal Error] Unit1.pas(7): File not found: 'Winapi.Windows.dcu'
который можно скопировать Ctrl-C когда ошибка выделена синим

тогда нужно удалить префиксные Winapi. и другие, потом уже убрать дубликаты имен модулей в uses

или же может быть



тогда прежде чем копипастить текст нужно закинуть на форму на форму кнопку и мемо с именами Button1 Memo1

а так все норм работает вроде, просто версия дельфи другая