Строки в pascal

[mario_xxx]

Вводится строка, подсчитать кол-во букв в каждом слове и вывести, желательно так: слово n; кол-во букв: n;
Надеюсь на вашу помощь, спасибо.

[Serge_Bliznykov]

mario_xxx, всё, что Вам нужно, это алгоритм (программа) разбиения строки на отдельные слова.
Воспользуйтесь поиском по форуму, легко найдёте такую...

[Mad_Cat]

Вводится строка

чем слова разделены?

[ruN00b]

var s:string; //строка со словами
I:integer;
G:array[1..1024] of string; //массив строк-слов
K:integer; //количество строк
Begin
S:='слово словечко словечище'; {<- меняем на свою строку }
K:=1;
For i:=1 to length(s) do
If s[i]=' ' then k:=k+1 //если символ строки пробел, отделяем слово
Else
G[k]:=g[k]+s[1]; //иначе записываем этот символ в последнее определенное слово
For i:=1 to k do
Writeln(g[i],': ',length(g[i])); //отображаем слова и количества символов в словах
End.

Указанное меняем на свою строку

From Stilet: Пост поправил.

[Poma][a]

Массив тут явно лишний (особенно если Вы его не инициализируете). И почему-то будет выводиться не слово, а 1-ый символ N раз (где N = Длина_Слова) (наверное, потому что Вы приклеиваете не I-тый, а 1-ый символ.

[Stilet]

var s:string; i,c:integer;
begin
 Readln(s);
 i:=1; while i<=Length(s) do begin
  while (i<length(s))and(s[i]=' ') do inc(i);
  c:=0;
  while (i<length(s))and(s[i]<>' ') do begin inc(i);inc(c);end; 
  writeln('Слово: ',copy(s,i-c,c),' ',c,' букв');
 end;
 readln;
end;

Это набросок.