сортировка текста, нужна помощь Опции

[Mavra]

есть текстовый файл-список вида:
....
*:OMAA = Abu Dhabi
*:BIAR = Акорейри
*:DABB = Аннаба
*:EHAM = Amsterdam
*:LTAC = Ankara
*:LIPY = Ancona
*:LGAT = Athens-H
*:EKBI = Billund
*:EDKB = Bon
.....
и так далее.
в списке города и их коды.
нужно упорчдочить список в алфавитном порядке A..YZАБ..Я
оставив при этом такую же систему с кодом....

вот что я тут понапыталась написать....что-то не оч получилось

begin
assign(ffirst,E1);
assign(f2,E2);
assign(fnew1,E3);
assign(fnew2,E4);
{$I-}Reset(ffirst);{$I+}
If IOResult<>0 then
Writeln ('Fajl ne moget byt otkryt...') ;
{$I-}Reset(f2);{$I+}
If IOResult<>0 then
Writeln ('Fajl ne moget byt otkryt...') ;
rewrite(fnew1);
rewrite(fnew2);
p:=0; q:=0;
while not Eof(ffirst) do
  begin
  read(ffirst,snew);
  p:=p+1;
  sm:=snew;
  Delete(sm, 1, 9);
   while not eof(f2) do
   begin
   read(ffirst,snew1);
   q:=q+1;
   sb:=snew1;
   delete(sb,1,9);
   if p<>q then
   if (sb<sm)and(sb[1]<>' ')and(sm[1]<>' ') then
    begin
    sm:=sb;
    snew:=snew1;
    end;
      writeln(fnew1,snew);
  end;
  writeln(fnew1,snew);
end;
  close(ffirst);
  close(f2);
  close(fnew1);
  close(fnew2);
end.