Ошибка в сортировке массива методом "Обмена"

program f1;
uses crt;
   var
        A:array[2..100] of integer;
        Z,i,N,Error,F,e:integer;
        Ch:char;
        label L1,L2;
begin
  L1:clrscr;
    e:=5;
      repeat
         gotoxy(4,e);
             write('введите количества массива от 2 до 100');
      {$i-}
         readln(N);
         Error:=IOresult;
      {$i+}
          if (Error<>0) or (N<2) or (N>2) then
 begin
          textcolor(lightred);
             writeln('Ошибка в значении элемента сортировки массива. Повторите ввод');
          textcolor(white);
                  e:=e+2;
end;
           until (Error=0) and (N>=2) and (N<=100);
 
            clrscr;
              gotoxy(28,1);
           textattr:=lightred;
                writeln('Внимание!');
              gotoxy(8,2);
                writeln('Значение элемента массива должна быть на интервале от - 10000 до 10000 ');
                     e:=3;
            textattr:=white;
                 for i:=1 to N do
 begin
          repeat
               gotoxy(1,e);
                   write('введите A[',i,']:');
 {$i-}
 
          readln(A[i]);
           e:=e+1;
           error:=IOResult;
 
 {$i+}
 
           if (A[I]>10000) or(A[i]<-10000) or (error<>0) then
 begin
                gotoxy(2,e);
                   textattr:=lightred;
                     writeln('Ошибка в значении элемента массива. Повторите ввод');
                  textattr:=white;
                        e:=e+1;
end;
              until (A[I]<=10000) and (A[i]>=-10000) and (error=0);
end;
 
          clrscr;
               gotoxy(5,2);
                  textattr:=white;
                       write('Результаты');
                gotoxy(2,5);
                        writeln('Исходный массив');
                gotoxy(2,7);
                             for i:=1 to N do
                         write (A[I],''); 
                 repeat
                     F:=0;
                         for i:=1 to N-1 do 
 begin
                         if A[I] > A[I+1] then
 begin
                   Z:=A[i];
                   A[I]:=A[i+1];
                    A[I+1]:=Z;
                     F:=1;
 end;
 end;
                     until (F=0);
                       textattr:=yellow;
                    gotoxy(2,10);
                             write('Окончательный массив');
                    gotoxy(2,12);
                            for i:=1 to N do
                              write (A[i], '');
                        textattr:=white;
                   gotoxy(2,21);
                            write('Хотите еще раз?');
 L2: case readkey of
 #89: goto L1;
 #121: goto L1;
 #78: exit;
 #110: exit;
 end;
 goto L2;
 end.