Изобразить схему алгоритма методом Насси-Шнейдермана

uses crt;
var
    s, itog1, itog2, itog3, e, posl: string;
    i, mp, z, x: integer;
    b, b1, b2 :boolean;
BEGIN ClrScr;
{ввод строки}
write('Stroka: ');readln(s);
  
{удаление лишних пробелов в конце строки}
for i:=(length(s)) downto 1 do
if s[i]=' ' then delete(s, i,1)
else break;
 
{поиск последнего слова строки}
for i:=length(s) downto 1 do
if s[i]=' ' then
begin
 posl:=copy(s,i+1,(length(s)-i)); {копируется последнее слово до пробела}
 mp:=i;                            {место последнего пробела}
 break;
end;
 
{Преобразовываем строку для п.1. Находим слова в строке, сравниваем с последним, проверяем на вхождение последней буквы}
e:='';              {e-вспомогательная строка для формирования слова }
for i:=1 to mp do  {цикл выполняется с первого символа начальной строки до пробела перед последним словом}
begin
 if (s[i] <>' ') then e:=e+s[i]           {если проверяемый символ не является пробелом, добавляем его в слово}
 else begin 
  b:=e<>posl;                              {сравниваем найденное слово с последним}
  b1:=pos(e[length(e)], e) < length(e);   {проверка вхождения последней буквы}
  if b=true and b1=true then             {если оба условия верны}
  begin e:=concat(e, ' '); itog1:= concat(itog1, e); delete(e, 1, 255);end   {добавляем слово в итоговую строку 'itog1' и стираем переменную е}
  else delete(e, 1, 255); {иначе стираем переменную (слова без вхождения посл. буквы не выводятся)}
 end;
end;
 
{если итоговая переменная не пуста, выводим ее значение, иначе выводим сообщение}
if itog1<>('') then
writeln('Stroka 1: ',itog1) else writeln('Stroka 1 pusta');
 
{выбираем слова для второй строки в соответствии с п.2.}
e:='';               {e-вспомогательная строка для формирования слова}
 for z:=1 to mp do  {цикл выполняется с первого символа начальной строки до пробела перед последним словом}
 
 begin if (s[z] <>' ') then e:=e+s[z] else {если проверяемый символ не является пробелом, добавляем его в слово}
  begin
  if e=posl then delete(e, 1, 255);  {если сформированное слово равно последнему, удаляем его}
   b2:=e<>'';                  {слово не пустое}
   b:=e<>posl;                 {слово не равно последнему}
   b1:=pos('q', e) > 0;        {наличие буквы q в слове}
   if b=true and b1=true then {если есть буква q и слово не равно последнему}
   begin
 
     x:=0;  {вспомогательная перем. для нахождения  длины слова с учетом добавления буквы u после q}
     for i:=1 to length(e) do
     begin if e[i]='q' then x:=x+1;end;
     x:=x+length(e);  {увеличиваем длину слова на количество найденных букв q}
 
     {пишем u после каждой буквы q}
     for i:=1 to x do
     begin if e[i]='q' then insert('u', e, i+1); end;
     
     {записываем полученное слово в переменную itog2 и очищаем переменную со словом е}
     itog2:=concat(e, '');delete(e, 1, 255); 
   end; 
 {если слово не равно последнему и не пусто, оставляем его в той же форме и добавляем в конце пробел}
  if b =true and b2=true then  e:=concat(e, ' ') else continue;
  
  {формируем итоговую строку, стираем переменные e, itog2; для b, b1, b2 устанавливаем значение false }
  itog3:=concat(itog3, itog2, e); delete(e, 1, 255); delete(itog2, 1, 255);b:=false;b1:=false;b2:=false;
   end;
  end;
  {если итоговое количество символов во второй полученной строке более 0, выводим ее значение, иначе выводим сообщение}
if length(itog3)>0 then writeln('Stroka 2: ', itog3) else writeln('Stroka 2 pusta');
readln;
END.

  if b and b1 then