free pascal 单词出现的频率

我测了一下，好像正确。
英文句子总长不超过255的可以过。
如果数据比较大，单词个数多就要用另一种算法了。到时候我再写一个。
program words;
type
re=record
data:longint;
str:string;
end;
var
f:boolean;
str,str1:string;
l,i,j,k,sword:longint;
s:set of char;
a:array[0..10000] of re;
begin
readln(str);
l:=length(str);
for i:=1 to l do if str[i] in ['A'..'Z'] then str[i]:=chr(ord(str[i])+32);
i:=1;
k:=0;
s:=['a'..'z'];
sword:=0;
while i<=l do
begin
if str[i] in s then
begin
inc(sword);
str1:='';
while (i<=l) and (str[i] in s) do
begin
str1:=str1+str[i];
inc(i);
end;
f:=false;
for j:=1 to k do if a[j].str=str1 then begin inc(a[j].data);f:=true;end;
if not f then begin k:=k+1;a[k].data:=1;a[k].str:=str1;end;