Паскаль, подсчитать количество букв в каждом слове предолжения, тема строки и множества

ReadLn(stroka);
a:= length(stroka);
for i:= 1 to a do
   if stroka[I] == ' ' then b:= b + 1;
a:= a - b;
WriteLn(a);