действия со строками

[Слава Кандратьев]

дан текст.найти наибольшее по длине слово
помогите пожалуйста,если можно с объяснением

[ViktorR]

Если только объяснение, то я бы сделал так:
1. Сформировал бы текстовый файл из нескольких предложений. Слова разделил бы пробелами, можно не один пробел, а предложения точками.
Предложения могут разделяться возвратом каретки. Слова не разбиваются переносами. В строке не более 255 символов.

Это полезно при тестировании будущей программы.

2. Описал бы несколько переменных, например:

var smax, stmp : string; {строки для хранения максимального слова}
                            { и промежуточного результата}
            sfh : string; {для чтения строк из файла}
             ch : char; {для хранения символов}
              fh : text; {файловая переменная}
               i : integer; {переменная цикла for}
             sln : integer; {для хранения длинны слова}

3. Написал бы несколько строк кода для организации чтения файла по строкам.

Begin
   assign(fh, '<тут путь к файлу и его имя в формате 8.3>');
   reset(fh);

4. Придумал бы некоторый алгоритм обработки строки, например, такой,
а)

smax := ''; {Обнуляем строку с макс. результатом и }
stmp := ''; {строку промежуточного результата}
  sln := 0; {макс. слова ещё нет}

б) Начинаем цикл обработки файла и читаем строку

repeat
  read(fh, sfh);

в) Определяем длину прочитанной строки и анализируем, последовательно ее символы в цикле:

 for i := 1 to length(sfh) do begin
    ch := sfh[i];

г) если это пробел или точка, то сравниваем длину smax и stmp.

If ch = ' ' or ch = '.' then begin {найден конец слова или предложения}
   If sln < length(stmp) then begin
      smax := stmp;
      sln := lendth(smax);
      stmp := '';
   end
end

г) иначе

else {получен значимый символ}
   stmp := stmp + ch; {добавим символ в конец формируемого слова}

д) если не конец строки, то продолжим обработку с в)

 end;

е) если не конец файла, то продолжим чтение строк с б)
иначе - завершить цикл обработки файла.

until eof(fh);

ж) вывел бы результат, слово и его длину:

writeln('Слово: ', smax, 'Длина: ', sln);

з) завершил бы программу:

 end.

Остается проверить работу программы (отладить алгоритм, если потребуется) и Ура...

Как то так думаю ...