Склавиатуры вводится произвольная строка, состоящая из символов латинского алфавита. группы символов, раздельные пробелами, и не имеющие пробелов внутри будем называть словами. напишите программу, которая заменяет каждое слово строки на его длину. длина строки не более 100 символов. например: исходная строка: "an example of a string of characters " преобразованная строка "2 7 2 1 2 10"
var
s : string;
i,k : integer;
begin
readln (s);
k := 0;
for i := 1 to Length(s) do
begin
if s[i] <> ' ' then
k := k + 1
else
begin
write (k+s[i]);
k := 0;
end;
end;
end.