Найти самое длинное слово в строке

@TyLinka · Регистрация: 02.02.2012

Author24 — интернет-сервис помощи студентам

Помогите, пожалуйста, решить следующую задачу, мучаюсь уже 2 дня:
Дана строка, содержащая пробелы. Найдите в ней самое длинное слово, выведите это слово и его длину.

Формат входных данных
Задана одна строка, содержащая пробелы. Слова разделены ровно одним пробелом.

Формат выходных данных
Необходимо вывести самое длинное слово в строке и его длину.

Пример
Ввод
a aa aaa aaaa
Вывод
aaaa
4

Вот мой код, но проходит, увы, только 3 теста из 10

Pascal

program most_length;
var s, max: string;
    i, l: integer;
begin
readln (s);
l:=0;   i:=1;
while length(s)<>0 do
    begin
    if (s[i]=' ') and (l<i-1) then
        begin
        max:=copy(s, 1, i-1);
        delete (s, 1, i);
        l:=length(max);
        i:=0;
        end
    else if (s[i]=' ') and (l>=i-1) then
        begin
        delete (s, 1, i);
        i:=0;
        end;
    i:=i+1;
    end;
if length(s) > l then max:=s;
writeln (max);
writeln (length(max));
readln;
end.

Заранее спасибо!

@Paster Fob · 24.02.2013, 18:49

Pascal

var
  s,st,smax: string;
  i:byte;
begin
  readln(s);
  if s[length(s)]<>' ' then
    s:=s+' ';
  st:=''; smax:='';
  for i:=1 to length(s) do
    if s[i]<>' ' then
      st:=st+s[i]
    else begin
      if length(smax)<length(st) then
        smax:=st;
      st:='';
    end;
  writeln(smax);
  writeln(length(smax));
  readln;
end.

	24.02.2013, 18:49