сортировка массива

[Superlotles]

Пример сортировки массива. Например такой массив: 1 23 34 45. Запускаем цикл от 1-ого элемента массива и до последнего, ищем минималое значение элемента массива и присваеваем это значение первому элементу массива a[1], далее запускаем цикл от 2-ого элемента массива и до последнего, ищем минимальное значение элемента массива и присваиваем его второму элементу массива a[2] итд.
Почему неправильно работает

var
  Form1: TForm1;
  a:array [1..10] of integer;
implementation

{$R *.dfm}
{$R+}
procedure TForm1.Button1Click(Sender: TObject);
var
  i,k,min:integer;
begin
  memo1.Lines.Clear;
  randomize;
  for i:=1 to 10 do     //Заполнение массива
  a[i]:=random(101);
  k:=1;
  while k<=10 do
  begin
    for i:=k to 10 do
    begin
      min:=a[k];
      if a[i]<min then
      min:=a[i];
    end;
    memo1.Lines.Add(IntToStr(min));
    inc(k);
  end;
end;

end.