9 клас. Упорядкування масиву.

Вправа 3. ст. 135.
procedure TForm1.Button1Click(Sender: TObject);
var i,j,min,nmin:integer;
  a:array[1..10] of integer;
begin
  for i:=0 to 9 do
      a[i+1]:=StrToInt(Memo1.Lines[i]);
  for i:=1 to 9 do
      begin
        min:=a[i];
        nmin:=i;
        for j:=i+1 to 10 do
            if a[j]<min then
               begin
                 min:=a[j];
                 nmin:=j;
               end;
        a[nmin]:=a[i];
        a[i]:=min;
      end;
  for i:=0 to 9 do
      Memo2.Lines[i]:=IntToStr(a[i+1]);
end;