用PASCAL做！读入一英文句子，单词之间用空格或逗号隔开，统计其中单词个数，并输出各个字母出现的频率。

回答时间仓促,如有疏漏,在所难免!
progarm ex_001;
var a:array[1..10000] of string;
i,j,k,m,n:integer;
s:string;
begin
m:=1;
n:=1;
read(s);
while not s='#' do
begin
a[m]:=s;
m:=m+1;
end;
for i:=1 to 1000 do
begin
if (ord(a[i])>=65 and ord(a[i]<=90) then
begin
writeln('Error 1',i);
break;
end
else if (ord(a[i])>=48) and (ord(a[i])<=57) then
begin
writeln('Error 2',i);
break;
end
else if a[i]='#' then
begin
break;
n:=n+1;
end
else
if a[i]=' ' then n:=n+1;
end;
write('单词个数:',n);
end.