составление блок-схемы по программе

[alexandrkamarov1]

очень прошу помочь составить блок-схему по программе, вот сам код:

program zadacha1;
uses crt;
var i,s,kol : integer;
    st : string;
begin
     s := 0;
     repeat
           writeln('vvedite tekst<=12 ');
           readln(st);
     until length(st) <= 12;
     for i := 1 to length(st) do
     if st[i] in ['A'..'z'] then s:=s+1;
     if s<length(st) then write('ne ydovletvor')
     else begin
     for i:=1 to length(st)+1 do
     if st[i]<st[i+1] then kol:=kol+1;
     if kol=length(st)-1 then
     write('ydovletv') else
     write('ne ydovletv');
     end;
     readln;
     end.

буду очень признателен




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Utkin]

Есть программы которые это умеют делать сами.