Работа с текстовыми файлами

[KatruKot]

Дан файл , содержащий текст на русском языке. Подсчитать количество слов, начинающихся и заканчивающихся на одну и ту же букву.

вот что я навоял....помогите исправить, пожалуйста.

var sl,s:string;
i, h:integer;
f: text;
begin
assign (f,'k:\lt1.txt');
reset(f);
while not EOF(f) do
begin
readln(f,s);
h:=0
sl:='';
i:=1;
s:=s+'.';
repeat
if (s[i]=' ') or (s[i]=',') or (s[i]=';') or (s[i]='.') or (s[i]='!') or (s[i]='?')
then
begin
if sl[1]=sl[length(sl)] then h:= h+1;
sl:='';
end
else sl:=sl+s[i];
i:=i+1
until i>length(s);
end;
writeln('Количество слов',h)
end.

[KatruKot]

Pascal выдаёт ошибку:"переполнение строки"

[Shift_sk]

var sl,s:string;
i, h:integer;
f: text;
begin
assign (f,'in.txt');
reset(f);
while not EOF(f) do
begin
readln(f,s);
h:=0;
sl:='';
i:=1;
s:=s+'.';
repeat
if (s[i]=' ') or (s[i]=',') or (s[i]=';') or (s[i]='.') or (s[i]='!') or (s[i]='?')
then
begin
if sl[1]=sl[length(sl)] then h:= h+1;
sl:='';
end
else sl:=sl+s[i];
i:=i+1
until i>length(s);
end;
writeln('Количество слов ',h)
end.

дело в том что более 255 символов паскаль не прочитает.... если не использовать массив!

[KatruKot]

Вот оно в чём дело, а я то парюсь)))) конечно решил блин проврить "Войну и Мир" XD

[Shift_sk]

)))смешной....