Question

Помогите преобразовать в виде блок-схемы данную программу

var

s: string;

begin

writeln('Введите строку...');

readln(s);

while pos(' ', s) > 0 do // тут два пробела

begin

delete(s, pos(' ', s), 1); // тут тоже два пробела

end;

writeln(s);

end.