осмысленный текст - Turbo Pascal - Ответ 5203791

var s: string;
j, i, k, l, max, a, b: integer;
 
begin
writeln ('Text:');
read (s);
insert (' ', S, length(s)+1);
l:=0;
for j:=1 to length(s) do
begin
         if (s[j]=' ') then  {Если в цикле встречается пробел, то 
                          считаем сколько символов было от предыдущего пробела до этого.}
            begin
             k:=j;      {Значение найденного пробела}
             if (k-l>max) then
             begin
                 a:=l;
                 b:=k;
                 max:=b-a;
             end;
             l:=j;  {Значение последнего, которое при 
                   следующем нахождении пробела будет предварительным}
             end;
 
end;
if ((b-a)-2<20) then writeln ('CORRECT') else  {Если самое длинное слово более 20 символов, 
                                             то текст есть неосмысленный}
writeln ('WRONG');
end.