Определить длину самого длинного слова тексте - Pascal

var s: string;
    i, k, max: integer;
begin
  writeln('Введите строки текста, окончание ввода - пустая строка:');
  max := 0;
  repeat
    readln(s);
    s := s + ' ';
    k := 0;
    for i := 1 to length(s) do
      begin
        if s[i] in [' ', '.', ',', '?', '!'] //разделители можно добавить
          then begin
            if k > max then max := k;
            k := 0
          end
          else inc(k)
      end
  until length(s) = 1;
  write('Максимальная длина слова: ', max);
  readln
end.