ВСЕ БАЛЛЫ КИНУ ТОМУ, КТО РЕШИТ! Помогите, как исправить ошибку (Ошибка времени выполнения: Индекс находился вне границ массива.) в строчке: if (s1[1] = 'A') and (s1[j + 1] = 'A') then
Нужно убрать j + 1 в этом месте выход за границу массива
в си выход за границы массива не считается ошибкой и эти 2 раза воспользовались в том коде + ограничили строку до 1000 в данном случае в паскале надо просто было узнать длину строки и ее использовать, что и сделал )
k:=k+1
и без г д з никак :D