Строки Опции

[Pautina]

Помогите, что-то не получается. Программа должна находить в заданном наборе слово максимальной длины, а выводится длина всех символов
СПАСИБО!

[nikita182]

я с бодуном сижу)) не стал ошибку искать. мой вариант:

uses crt;

var
 i : integer;
 s : string;
 n : integer;
 max : integer;
 smax : string; 
 
begin
 clrscr;
 writeln ('vvodi'); 
 readln (s);
  n := 0;
  max := 0;
  for i := 1 to length(s) do begin
   if s[i] <> ' ' then
    n := n + 1;
   if (s[i] = ' ') or (i = length(s)) then
    if n > max then begin
     max := n;
     smax := copy (s, i - n, n + 1);
     n := 0;
    end;
  end;
  writeln ('maximalnoe - ', smax);

 readkey;
end.