1)Дана строка символов. Найти в строке самое длинное слово и вывести его на печать. Слова ограничены пробелами, запятыми и точками. Порядок ввода исходных данных: - исходная строка. Порядок вывода результатов: - длина и слово.
2)Преобразовать обработку строки в процедуру (или функцию). Созданную процедуру использовать для построчной обработки текстового файла (Text). Результат обработки записывается в новый файл того же типа.
вот код для того чтоб найти максимальную Длинну, но если я поставлю запятую и точку..то летит
var
s: string;
i, start, len, max_len: byte;
begin
readln(s);
max_len := 0;
start := 0;
i := 2;
while (i < length(s)) do begin
len := 0;
while not (s[i] = ' ') do begin
inc(i); inc(len);
end;
if len > max_len then begin
max_len := len;
start := i - len;
end;
inc(i);
end;
writeln(copy(s, start, max_len));
end.
и можете помочь со 2ой частью задания