Паскаль. Программа выводящая в перевернутом виде каждое слово

[Rival]

Паскаль. Программа выводящая в перевернутом виде каждое слово

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

program words_revers_simp; 
var   
 S: string; 
 nach_slova, i,j: integer; 

begin     //ввод строки   
 write('enter a line of text > ');   
 readln(S);     //обработка   
 nach_slova:= 1;  //первое слово начинается с 1-го символа строки     
 //ищем конец слова = начало следующего слова   
 for i:=1 to Length(S) do 
  begin     //если это конец строки то пишеи слово и выходим из цикла   
   if i = Length(S) then 
    begin       
     for j:= i downto nach_slova do write (S[j]);         
     break;     
    end;     //если нашли пробел - значит у нас есть конец слова     
 //пишем его и ищем конец следующего     
   if S[i] = ' ' then 
    begin       
     for j:= i -1 downto nach_slova do write(S[j]);         
     write(' ');       
     nach_slova:= i + 1; //теперь начало слова - след. символ после  пробела     
    end;    
  end;    
 writeln; 
end.

 

[Rival]

Извините, но не могу расположить нормально код. Да еще и во втором сообщении не тот пихнул.

 

[Vladimir_S]

Извините, но не могу расположить нормально код.

Поправил.

Да еще и во втором сообщении не тот пихнул.

Убрал.