var　ch:char;
　　　word:charString;
　　　length:inetger;

begin
repeat
　read(ch)
　until (ch in ['A'..'Z','a'..'z','.']);
　word[1] := ch;
　while (ch in ['A'..'Z','a'..'z']) do
　　begin
　　　length := length+1
　　　if length <= 20 then
　word[length] := ch;
　　　read(ch)
　　end
end;

>271
…一応…でも不安だ…