Дана программа которая должна удалять пробелы из строки program var15_stroki; var s: string; i,endstr: integer; begin readln(s); endstr: =length(s); for i: =2 to endstr do if s[i]=' ' then delete(s,i,1); writeln(s); readln; end. вот тут ошибка if s[i]=' ' then программа выдает ошибка времени выполнения, индекс находился вне границ массива нужно исправить