сортировка массивка. исправить ошибку

[Ananim-Pbl6ak]

задание упорядочить массив по возрастанию абсолютного значения. методом сравнение двух. соседних элементов

Program Sortirovka;
{Выполнил Романов Антон}
Const
  Dim=10;
Type
  SVector=Array[1..Dim] of Integer;
Var
  ProVector:SVector;
  Kolvo,I:Byte;
  Procedure SravSort(Var Vector:SVector;Skolko:Byte);
  Var
  J:Byte;
  Kopilka:Integer;
  Begin
    For J:=2 to Skolko do
      begin
        Repeat
        If ABS(Vector[J])<ABS(Vector[J-1])
          then
            begin
              Kopilka:=Vector[J-1];
              Vector[J-1]:=Vector[J];
              Vector[J]:=Kopilka;
              J:=J-1
            end;
        Until (J=1) or (ABS(Vector[J])>=ABS(Vector[J-1]))
      end;
  end;

Begin
  Writeln('-введите не более чем ',Dim,' целых чисел ');
  Writeln('конец ввода по  Enter');
  Kolvo:=0;
  While not EOLn do
    begin
      Inc(Kolvo);
      Read(ProVector[Kolvo]);
    end;
  Readln;
  SravSort(ProVector,Kolvo);
  Writeln('массив после сортировки ');
  For I:=1 to Kolvo do
    Write(ProVector[I],' ');
  Writeln;
  Readln
End.

сказали что (меняетю значение) переменной цикла For в теле
цикла. а этого делать нельзя как исправить?