var
a:array[1..26,1..1000] of string;
b:array[1..1000] of string;
ch1,ch2:char;
i,j,k,n:longint;
s:string;
p:0..1;
begin
readln(s);
for i:=1 to 26 do
a[i,1]:=s[i];
read(n);
for n:=1 to n do
readln(b[n]);
read(p);
k:=1;
for i:=1 to 26 do
for j:=1 to 1000 do
begin
ch1:=a[i,1][1];
ch2:=b[j][1];
if ord(ch1)=ord(ch2) then
begin
k:=k+1;
a[i,k]:=b[j];
end;
end;
if p=1 then
begin
for i:=1 to 26 do
for j:=2 to 1000 do
if a[i,j]<>'' then writeln(a[i,j]);
end
else
begin
for i:=26 downto 1 do
for j:=2 to 1000 do
if a[i,j]<>'' then writeln(a[i,j]);
end;
end.
错在哪？基本思想桶排序