[pazitiff]

Обнуление массивов не помогло, а вот break точнее я пользовался goto мне подсказал что ошибка возникает после выполнения вот этих двух циклов:

Здесь ошибки не будет

Код:

for k:=0 to si-1 do       
      begin                  
        for l:=0 to si-1 do
        begin
          q:=q+1;
          vecr[q]:=br[k,l];
        end;               goto label1;
      end;

В этом случае ошибка появляется

Код:

for k:=0 to si-1 do         
      begin                   
        for l:=0 to si-1 do
        begin
          q:=q+1;
          vecr[q]:=br[k,l];
        end;
      end;            goto label1;

но почему я понять не могу В двух словах о коде в массив 3х3 ранее записывается яркость каждого пикселя, в этих циклах представленных выше, я переписываю в вектор для упорядочивания по возрастанию методом пузырька. Закоментировал эти циклы, все без ошибки но свою функцию программа понятное дело не выполняет