Ввод предложения и вывод самого длинного слова

[microlab]

составить программу, которая вводит предложениее и выводит на экран самое длинное слово

[Валлидол]

Uses Crt;
var s:string;
    i,n,m:byte;
    slovo:string;
    mas:array [1..100] of string;
begin
  ClrScr;
    writeln('Введите текст');
    readln(s);
    slovo:='';
    n:=0;
    for i:=1 to length(s) do
       if not(s[i] in [' ',',','.','?','!']) then
         slovo:=slovo+s[i]
          else begin
                    n:=n+1;
                    mas[n]:=slovo;
                    slovo:='';
               end;
 m:=1;
 for i:=2 to n do
   if length(mas[i])>length(mas[m]) then m:=i;
writeln('Самое длинное слово в предложении: ',mas[m]);
readln;
end.

Проверяйте =)



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

Валлидол,
первое. в данной задаче массив слов СОВСЕМ не нужен. Что найти максимальную длину, достаточно получать длину одного, текущего слова.

второе.
в программе есть ошибка. Если строка не заканчивается знаком разделителем, то ваш алгоритм НЕ УВИДИТ последнего слова.
попробуйте:

    {readln(s);}
    s := 'а вот и ДЛИНННОЕ';

[Валлидол]

uses Crt;
var s:string;
    slovo,st:string;
    i,k:byte;
Begin
ClrScr;
writeln();
readln(s);
if s='' then begin 
         writeln('нет текста');
         exit;
         end;
s:=s+' ';
k:=0;
st:='';
for i:=1 to length(s) do
if not(s[i] in [' ',',','.','?','!']) then
         slovo:=slovo+s[i]
          else begin
               if length(slovo)>k then begin
                               k:=length(slovo);
                               st:=slovo;
                                            end;
                    slovo:='';  
               end;
  if length(st)<>0 then              
          writeln('Длинное слово в тексте:',st,' длина=',length(st));               
Readln;
End.

вот собственно без массива)

[microlab]

Спасибо. Без массива помогла.