Нахождение самого длинного слова в тексте. Найти самое длинное слово в тексте. Если таких слов несколько, то взять последнее.Написать на Паскале

Предыдущий
вопрос Следующий
вопрос

Программа будет выглядеть примерно так на Pascal:

program LongestWord;
const
Separators = [' ', '.', ',', ';', ':', '-'];
var
text, longestWord, currentWord : string;
i : integer;
begin
// Инициализация переменных
longestWord := '';
currentWord := '';
// Ввод текста с клавиатуры
writeln('Введите текст: ');
readln(text);
// Перебираем символы в тексте
for i := 1 to Length(text) do
begin
// Находим слово
if not (text[i] in Separators) then
begin
currentWord := currentWord + text[i];
end
// Если достигли разделителя, проверяем текущее слово
else
begin
// Обновляем самое длинное слово
if Length(currentWord) >= Length(longestWord) then
begin
longestWord := currentWord;
end
// Сбрасываем текущее слово
currentWord := '';
end;
end;
// Проверяем последнее слово
if Length(currentWord) >= Length(longestWord) then
begin
longestWord := currentWord;
end;
// Выводим результат
writeln('Самое длинное слово: ', longestWord);
end.

Эта программа находит самое длинное слово во введенном тексте, разделяя текст на слова по пробелам, запятым, точкам и другим разделителям. Если необходимо рассматривать другие разделители, их можно добавить в массив Separators.