Определить сколько в файле f слов состоящих из одного, двух, трех и т.д. символов

Program  alex;
Uses crt;
Var  a:array [1..999] of integer;
     f:text;
     k,x,i,l,z,j: integer;
     str: string;
Begin
clrscr;
x:=0;
assign (f,'C:\WORK\f.txt');
Rewrite (f);
writeln ('Vvedite slova');
read (str);
str:=str+' ';
l:=length(str);
k:=1;
for i:=1 to l do
begin
if str[i] =' ' then
begin
inc(x);
a[k]:=i;
inc(k);
end;
for k:=1 to x do
write (a[k],' ');
end;
writeln('');
for i:=1 to x do
begin
z:=length(str[k]);
inc(k);
writeln (i,' slovo - ',z);
end;
writeln ('kol-vo slov - ',x);
close (f);
readkey;
End.

Program  alex;
Uses crt;
Var  a:array [1..999] of integer;
     f:text;
     k,x,i,l,z,j: integer;
     str: string;
Begin
clrscr;
x:=0;
assign (f,'c:\f.txt');
Reset (f);
while not eof (f) do
begin
read (f,str);
str:=str+' ';
l:=length(str);
for i:=1 to l do
if str[i] =' ' then inc(x);
a[1]:=0;
k:=2;
for i:=1 to l do
if str[i] =' ' then
begin
a[k]:=i;
inc(k);
end;
{for i:=1 to k-1 do writeln (a[i]);}
for i:=1 to k-2 do
begin
writeln('dlina ',i,' slova = ',a[i+1]-a[i]-1)
end;
writeln('');
writeln ('kol-vo slov - ',x);
close (f);
end;
readkey;
end.