исправление ошибки

[Razdolbai]

uses crt;
var s,sl,smax: string;
i,k,dmax: integer;
f,g: text;
begin
assign(f,'C:\Comb.txt');
assign(g,'C:\4isla.txt');
reset(f);
rewrite(g);
while not (eof (f)) do
begin
readln(f,s);
s:=s+ ' '; sl:=''; dmax:=0;
for i:=1 to length(s) do
if s[i]<>' ' then sl:=sl+s[i] else
begin
if length(sl)>dmax then
begin
dmax:=length(sl);
smax:=sl;
end;
sl:='';
end;
for i:=1 to length(s) do
if s[i]<>' ' then sl:=sl+s[i] else
begin
if length(sl)=dmax then
begin
inc(k);
writeln(g,sl);
end;
sl:='';
end;
end;
writeln(g,k);
writeln('Самые длинные слова каждой строки занесены в файл g');
close(f);
close(g);
readkey
end.

Паскаль ругается ошибкой:"Произошло переполнение строки при выполнении операции "+" в 16 строке, подскажите что за ошибка, думаю что формулу наверное не правильно написал

[Stilet]

Текст ошибки на аглицком в студию.

[Razdolbai]

There was an overflow of a line when performing operation "+"

[Stilet]

Прикрепи сюда файлы текстовые. Те что в программе открываются.

[Razdolbai]

думаешь в них проблема?

Comb.txt

во второй файл сохраняется самое длинное слово

УРААААА заработало, странно даже ничего не исправил, просто седня попробывал и получилось)
только теперь проблема получилось что он выводит длинное слово каждой строки,а мне надо самое длинное во всем тексте, как лучше переделать? указать что бы считывалось до конца файла?

[Тамерлан Абилов]

алгоритм не смотрел твой но думаю так.указывать до конца или как сейчас у вас не знаю просто допустим находя в каждой строке длинное слово то сохраняем длину этого слова и проверяем следующие слова принципом нахождения максимума кратко говоря

[Stilet]

думаешь в них проблема?

Не исключено. В классическом паскале строка длинной до 255 символов. Твой паскаль судя по всему просто не осиливает строку из файла.