проверить блок-схему

[felmor]

есть сомнения по этой блок-схеме. Подскажите, что здесь не правильно?

ЗАДАЧА:
Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв, между соседними словами -
не менее одного пробела, за последним словом - точка. Напечатать слово с максимальной длиной.

uses crt;
var s,sub:string;
    i,n,max:integer;
    a:array[1..50] of string;

begin
clrscr;
writeln('Input str,'o'');
readln(s);
i:=0;n:=0;
repeat
inc(i);
if (s[i]=' ')and(s[i+1]<>' ') then begin
                   inc(n);
                   a[n]:=sub;
                   sub:='';
                   end
else if (s[i]<>' ')and(s[i]<>'.') then sub:=sub+s[i];
until i=length(s);
if sub<>'' then begin
inc(n);
a[n]:=sub;
end;
writeln;
max:=1;
for i:=2 to n do
 if  length(a[i])>max then max:=i;
 writeln(a[max]);
end.

[Serge_Bliznykov]

для начала.
у Вас программе ошибка!
длина первого слова не проверяется на максимум.
введите строчку, у которой первое слово максимальной длины и насладитесь тем, что программа его не выведет!
(исправьте перебор в конце программы на

for i:=1 to n do

во, вторых, инструкция:

writeln('Input str,'o'');

у меня не компилировалась, пока не убрал 'o'... так и не понял, что это... ;-(

и последнее, блок-схему Вы же не рисовали, а сгенерировали какой-то программой.
Она полностью соответствует Вашей программе.
Но я не уверен, что Вы понимаете, что делает "Ваша" программа и для чего там эти проверки и циклы..
удачи.

[felmor]

спасибо за ответы, а блок-схему составил и нарисовал лично сам.
я рад что Вы так думаете =)