pascal 单词统计

var b:array[1..3] of boolean;
ss:array[1..50] of string;
s:string;
i,j,k,p:integer;
f:boolean;
begin
f:=true;
for i:=1 to 3 do
b[i]:=true;
readln(s);
for i:=1 to length(s) do
begin
if (ord(s[i]-1) in [97..122,32,44]) and (f)then
if (i=1)or(s[i]=' ')or(s[i]=',')then k:=k+1;
if ord(s[i]) in [48..58] then
begin b[1]:=false; f:=11; end;
if (ord(s[i]) in [65..91]true)and(ord(s[i]) in [97..122,32,44]true)and(ord(s[i]) in [48..58]true) then begin
b[3]:=false; f:=false; end;
if ord(s[i]) in [65..91]=true then begin b[2]:=false;f:=false; end;
if (s[i]' ')and(s[i]',')and(f=true)then ss[k]:=ss[k]+s[i];
end;
if ftrue then write('error ');
for i:=1 to 3 do
if b[i]true then write(i,' ');
if ftrue then halt;
write(k);
end.
再问： ord(s[i]-1)
出问题了
再答： ord(s[i]) in [..]没问题的，我试过，我运行是没问题