pascal程序 输入单词按字母表顺序排序输出输入【随意】个单词,以end结尾,把输入的单词按照字典（字母表）顺序排列后输出,要求输入一个单词换一行继续输入,直到最后一行以end结束,用一维数组解例：输入bananapearappleend运行后输出applebananapear无需判断单词是否拼写正确请高手给我改改这个,不知错在哪里
网友回答
var a:array[1..1000] of string;
i,j,n,b:integer;
k:string;
begin n:=1; readln(a[n]);
while a[n]'end' do
begin n:=n+1;
readln(a[n]);
end; dec(n);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin k:=a[i]; a[i]:=a[j]; a[j]:=k;
end; for i:=1 to n do
writeln(a[i]);
end. 问题补充回答如下：
while a[n]'end' do
begin n:=n+1;
readln(a[n]);
//你的程序错在这里,你用的是read,是不行的,因为你现在要读入字符串 end;