....
*: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.