Вопрос по информатике:

Помогите пожалуйста.
Кто может составить блока-схему для программы

uses crt;
var
s,b:string;
i,x:integer;
begin
writeln('Введите строку');
readln(s);
for i:=1 to length(s) do
begin
if s[i]=' ' then
break;
b:=s[i]+b;
inc(x);
end;
writeln(b);
write('Количество букв в слове=', x);
end.