Строки Опции

[Flo]

Программа выводит только длину слова... что необходимо добавить, чтобы выводилось все слово?
препод вот что написала:
если S[i]<>' ', то B:=B+copy(s,i,1)
n=1
если s[i]=' ' то n:=n

я никак не пойму, что она имела в виду..
заранее спасибо!!

var

i,n,max:integer;

s:string;

function wordlen(i:integer):integer;

var

n:integer;

begin

n:=0;

while (s[i]<>’ ‘) and (i<=length(s)) do

begin

i:=i+1; n:=n+1;

end;

wordlen:=n;

end;


begin

write(‘vvedite stroky:’);

readln(s);

i:=1; n:=0; max:=0;

while (i<=length(s)) do 

begin

if s[i]<>’ ‘ then 

begin

n:=n+1;

if wordlen(i)>max then max:=wordlen(i);

i:=i+wordlen(i);

end

else i:=i+1;

end;

writeln(max);

readln;

end.

[Flo]

Спасибо, только не мог бы ты объяснить мне кое-что.. не совсем понимаю, что происходит здесь:

 for ch := #32 to #255 do
   for i := 1 to cnt[ch] do write(ch);

почему начинаем с 32, а не с 1?
и что мне надо добавить, чтобы он мне не просто выводил символы, но еще и их количество?