Верно ли, что самое длинное слово в строке содержит больше 10 букв? программа должна вывести одно слово: «верно» или «неверно»(pascal abc)

Думаю что неверно

Var
  c : integer;
  k : char;
begin
  c := 0;
  while not eoln do
  begin
    read (k);
    if k = ' ' then
    begin
      if c > 10 then
      begin
        write ('YES');
        halt;
      end;
      c := 0;
    end
    else
      c := c + 1;
  end;
  if c > 10 then write ('YES') else write ('NO');
end.