Помогите составить блок-схему к задачи.

[tweeker]

Добрый вечер.
Может кто скинуть картинку с блок-схемой к этой задачи,либо же сайт,где можно по коду построить блок-схему.
Условие задачи-Дана последовательность символов, состоящая из слов. Вывести на экран все слова, в которых есть одна буква а и одна буква е.
Программа-

Program z5;
Uses crt;
Var
	st,s:string;
	i,len,x:integer;
	ka,ke:byte;
Begin
 Writeln('Введите строку(на англ.)');
 readln(st);
 len:=Length(st);
 if st[len]<>' 'then
  st:=st+' ';
 if st[1]<>' 'then
  st:=' '+st;
 len:=length(st);
 i:=1;
 repeat
  if(st[i]=' ') and (st[i+1]<>' ') then
   Begin
    x:=i+1;
    ka:=0;
    ke:=0;
    repeat
     i:=i+1;
     if st[i]<>' ' then
      if st[i]='a' then
	ka:=ka+1;
       if st[i]='e' then
	ke:=ke+1;
    until st[i]=' ';
    if (ka=1) and (ke=1) then
      Begin
	s:=copy(st,x,i-x);
	write(s,' ');
      end;
 i:=i+1;
    end;
 i:=i+1;
   until i>=len;
Readkey;
End.

Заранее спасибо.

[Vanta11a]

http://paslab.ru/blok-shema.php