Почему программа не работает? PascalABC.NET
Вот код программы:
const
FileName = 'configuration.cfg';
var
f: Text;
s: string;
begin
assign(f, FileName);
reset(f);
while not eof(f) do
begin
readln(f, s);
!!! case s[1] of
'#':
begin
continue;
end;
end;
writeln(s);
end;
close(f);
end.
На строке помеченной !!!выдает ошибку (Ошибка времени выполнения: System.IndexOutOfRangeException: Индекс находился вне границ массива. )
Без цикла этот код работает. В чем проблема? И как её исправить?