Информатика егэ №24 обработка символьных строк. Очень нужно разобраться

Вот такая задача: Текстовый файл 24.txt состоит не более чем из 106 символов X, Y и Z. Определите максимальное количество идущих подряд символов, среди которых каждые два соседних различны. Для выполнения этого задания следует написать программу.

Вот такое в ответах предлагается решение:
Var maxLen, curLen, i: integer;
s: string;
begin
assign(input, '24.txt');
readln(s);
maxLen := 1;
curLen := 1;
for i:=2 to Length(s) do
if s[i] <> s[i-1] then begin
curLen := curLen + 1;
if curLen > maxLen then
maxLen := curLen;
end
else
curLen := 1;
writeln(maxLen);
end.
Копирую его в паскаль авс и все прекрасно работает. выдает ответ 35. А потом в файле данных меняю одну из строк, чтобы проверить, как с другими данными работает. А она никак не работает. Это что же за одноразовая программа такая?
Помогите, пожалуйста, умные люди!