Задача на обработку строк, верна ли блок-схема Опции

[Александр Сергеевич]

Такая задачка: дан текст, вывести слова, отличные от последнего слова и удовлетворяющие свойству:
слово совпадает с начальным отрезком латинского алфавита (a.ab.abc и тд). учесть, что в диапазоне
'a'..'z' могут быть литеры, отличные от латинских.
решение такое

Const st=('abcdefghijklmnopqrstuvwxyz');
Var s,s1,ps:string;
    i,j:byte;
    b:boolean;
Begin
    write('введите строку': ');readln(s);
    i:=Length(s);ps:='';
    While s[i]<>' ' do
     dec(i);
    ps:=Copy(s,i+1,Length(s));
    Delete(s,i,Length(s));
    s:=s+' ';
    While Pos(' ',s)<>0 do
     Begin
      s1:=Copy(s,1,Pos(' ',s)-1);
      Delete(s,1,Pos(' ',s));
      if s1<>ps then
       Begin
        i:=0;j:=0;b:=true;
        While (i<Length(s1))and(b) do
         Begin
          inc(i);
          if not (('a'<=s1[i])and(s1[i]<='z'))  then inc(j);
          if not (s1[i]=st[i-j])and (('a'<=s1[i])and(s1[i]<='z')) then b:=false;
         End;
        if b then writeln(s1);
       End;
      End;
End.

вот такую схему нарисовал...
(в прикрепленном файле)
что-то я запутался со стрелками, там два цикла и оператор if вложены

Сообщение отредактировано: Александр Сергеевич - 30.11.2012 5:00