найти самое длинное слово в строке паскаль
Для нахождения самого длинного слова в строке на языке Pascal можно использовать следующий код:
```pascal
program LongestWord;
var
str, word, longestWord: string;
i: integer;
begin
str := 'Это строка с несколькими словами, из которых нужно найти самое длинное слово';
longestWord := '';
word := '';
for i := 1 to Length(str) do
begin
if (str[i] <> ' ') then
word := word + str[i]
else
begin
if Length(word) > Length(longestWord) then
longestWord := word;
word := '';
end;
end;
if Length(word) > Length(longestWord) then
longestWord := word;
writeln('Самое длинное слово в строке: ', longestWord);
end.
```
Этот код будет искать самое длинное слово в строке и выводить его на экран.