пару вопросов по блок-схеме

[capta1n]

бесись дальше ) ты слишком туп, чтобы так острить ) лучше бы поучился чему-нибудь, малыш))

[felmor]

не буду присоединятся к вашим выяснениям =)
а вот вопросик тут один ещё напросился. Сделал я блок-схему другой программы, есть сомнения и поэтому очень хотел бы, что бы вы ее проверили:

ЗАДАНИЕ:Дана последовательность строчных символов, за который следует точка. Напечатать текст, удалив из него все символы, не являющиеся буквами русского алфавита.

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.

СПАСИБО