Строки Опции

[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]

должно получится примерно такое?

const
 s: string = 'btuukdsfghkkkkkkl';
var
 counter: array[char] of byte;
 max: byte;
var i: integer;
begin
 max := 0;
 for i := 1 to length(s) do
   begin
     inc(counter[s[i]]);
     if max < counter[s[i]] then
       max := counter[s[i]]
   end;
 for i := 1 to 255 do
   if counter[chr(i)] = max then
     write(chr(i), ' ');
 writeln(max);
end.