不对呀，我已经输入了，是在运行程序后，在输入字母按回车后才出现的错误提示。

算了，改一下，防止以外情况发生：
var 
c:array['a'..'z']of integer;
st:string;
i:integer;
ch:char;
begin
fillchar(c,sizeof(c),0);
readln(st);
i:=1;
repeat
if st[i] in ['a'..'z'] then
inc(c[st[i]]);
inc(i);
until (st[i]='.')or(i=length(st));
for ch:='a' to 'z' do
if c[ch]>0 then write(ch,':',c[ch],' ');
writeln;
end.

谢谢，这样修改后能行。