В Memo-поле вводятся названия государств. Отсортировать данный список по алфавиту методом выбора

type
 tov = record
    naz: string;
    den: string[20];
end;
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
i,j,n: integer;
st: string;
m: tov;
mas: array[1..100] of tov;
begin
for i:=0 to memo1.lines.count-1 do
 begin
  st:=memo1.Lines.Strings[i];
  n:=pos(' ',st);
  mas[i+1].naz:=copy(st,0,n);
  mas[i+1].den:=copy(st,n+1,length(st));
 end;
for j:=1 to memo1.lines.count do
for i:=1 to memo1.lines.count-1 do
 begin
  if  AnsiCompareStr(mas[i].naz,mas[i+1].naz)>0 then
  begin
   m.naz:=mas[i].naz;
   m.den:=mas[i].den;
   mas[i].naz:=mas[i+1].naz;
   mas[i].den:=mas[i+1].den;
   mas[i+1].naz:=m.naz;
   mas[i+1].den:=m.den;
  end;
 end;
 n:=memo1.Lines.Count;
 memo1.Clear;
 for i:=1 to n do
 begin
  showmessage(mas[i].naz);
  memo1.Lines.Add(mas[i].naz+' '+mas[i].den+#13);
 end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
l1,l2,i: integer;
m: string;
begin
randomize;
for i:=0 to 4 do
begin
 l1:=random(memo1.Lines.Count);
 l2:=random(memo1.Lines.Count);
   m:=memo1.Lines.Strings[l1];
   memo1.Lines.Strings[l1]:=memo1.Lines.Strings[l2];
   memo1.Lines.Strings[l2]:=m;
end;
end;
 
end.