Здравствуйте, подскажите, пожалуйста, что не так с программой. Компилятор выдает ошибку "Файл не найден". Проверила внимательно название, переместила файл в папку к программе. Ничего не помогает(Program N2;var b, a: integer; s: string;k:text;begins:='24.txt';assign(k, s); reset(k);b := 1;a := 1;for i:integer:=2 to Length(s) do if (s[i]=s[i-1]) and (s[i]='X') thenbegina:=a+1;if b < a then b:=a;endelse a:=1;writeln(b);end.