Слова в тексте разделены пробелом. Напишите программу, выводящая количество символов в каждом слове, через PascalABC.

Огромное спасибо вам!!!

Пожалуйста.

1)var s,w:string; p:integer;beginreadln(s);s:=s+' ';p:=pos(' ',s);while p>0 do begin w:=copy(s,1,p-1); writeln(w,' - ',length(w)); delete(s,1,p); p:=pos(' ',s); end;end.Пример:Слова в тексте разделены пробеломСлова - 5в - 1тексте - 6разделены - 9пробелом - 82)var s,w:string; k,i:integer;beginreadln(s);s:=s+' ';w:=''; k:=0;for i:=1 to length(s) do if s[i]<>' ' then begin w:=w+s[i]; k:=k+1; end else begin writeln(w,' - ',k); w:=''; k:=0; end;end.