Строки

[DrDre9991]

1) В введенной строке подсчитать количество слов и букв в каждом слове (слова отделяются пробелами).

[Stranger333]

Я сделал только, если в введенную строку входят еще какие то знаки препинания тогда ее надо немно исправить

const n=4;
var s:string; i,k,k1:integer;
begin
  k:=1;
  k1:=1;
  readln(s);
  for i:=1 to length(s) do
  begin
    if s[i] = ' ' then
    begin
    k:=k+1;

    writeln(k-1,'-e slovo soderjit ', i-k1, ' bukv');
    k1:=i+1;
  end;
  end;
  writeln(k,'-e slovo soderjit ', Length(s)-k1+1, ' bukv');
  writeln('Vsego slov: ',k);
  readln;
end.