"Индекс вне границ массива". Строки. (Проблема еще не решена)

[Broken Angel]

Пожалуйста, поясните, что означает "Индекс вне границ массива" и как этого избежать! (По возможности переделайте программу)
У меня прога такая:

uses crt;
const
M=[' ',',','.',';',':','-','=','+'];
var
 ir, ir1:integer;
 str,max,temp:string;
 Kol_Slov:Byte;
 Max_kol_slov:Byte;
begin
 writeln('Введите строку:');
 readln(str);
  temp:='';
  max:='';
  Kol_slov:=0;
  Max_Kol_slov:=0;
  {пробегаем всю строку посимвольно}
  for ir:=1 to length(str)+1 do
  begin
   ir1:=ir;
   if  (not (str[ir1] in M)) and (str[ir1] <> ' ') and (ir1 <> Length(str)+1) then
      temp:=temp+str[ir1]
   Else
   if (str[ir1] in M)  or (str[ir1] = '') or (ir1 = Length(str)+1) then
   begin
     Inc(Kol_slov);
     if length(temp)>length(max) then
     Begin
       Max_Kol_slov:=Kol_slov-1;
       max:=temp;
     End;
     temp:='';
   end;
   end;
   textcolor(red);
  writeln('Слово максимальной длины: ',max,'.');
  writeln('Количество слов до него: ', Max_Kol_slov,'.');
  Readln;
  end.

Задание - вывод слов, стоящих до самого длинного слова. Помогите, очень надо сегодня!

[GetMax]

Проверил программу. Вроде все работает. Приведите что ли пример строки, при вводе которой возникает ошибка

[Broken Angel]

Ошибка указывает на эти две строки из программы.
1)

 if  (not (str[ir1] in M)) and (str[ir1] <> ' ') and (ir1 <> Length(str)+1) then

2)

 if (str[ir1] in M)  or (str[ir1] = '') or (ir1 = Length(str)+1) then

Не работает в нэтовской ABC (хотя компилируется без проблем). В обычной ABC она, несомненно, работает.

[p51x]

length(str)+1

У вас нету

str[ir1]

. О чем и говорит компилятор.

[Broken Angel]

Где не хватает?

[Son Of Pain]

У тебя написано
for ir:=1 to length(str)+1 do
...
на последней итерации программа пытается обратиться к символу str[length(str)+1]. Очевидно, что такого символа нет -> получаем выход за границы массива.