Непонятки с IOResult

Program sort_arr;
    Uses Crt;
    const
        N = 100;                         { кол-во элементов в массиве}
 
    type
        arr = array[0..N] of Extended;
  var
    X,Y,YN : arr;                    { Массивы }
    num : Byte;                      { Фактическое кол-во элемнтов в массиве }
    a,                               { Значение первого элемента массива X }
    dx : Extended;                   { Шаг }
    Item : byte;                     { Номер темы меню }
 
  { DrawMenu - рисует рамку вокруг меню программы}
  procedure DrawMenu(x1,y1,          { координаты левого верхнего угла }
                     x2,y2:byte);    { Координаты правого нижнего угла }
    var
      i:byte;
    Begin
      For i := x1+1 To x2-1 Do       { Рисуем верхную и нижнюю границу }
        Begin
          GoToXY(i,y1); Write('═');
          GOToXY(i,y2); Write('═');
        End;
 
      For i := y1+1 To y2-1 Do       { Рисуем боковые границы }
        Begin
          GoToXY(x1,i); Write('║');
          GOToXY(x2,i); Write('║');
        End;
                                     { Углы рамки }
      GoToXY(x1,y1); Write('╔');
      GOToXY(x1,y2); Write('╚');
      GoTOXY(x2,y1); Write('╗');
      GOToXY(x2,y2); Write('╝');
    End;
 
  { ShowMenu - показывает список тем меню,
               ввыделяя другим цветом тему Item }
  procedure ShowMenu(Item : byte;
                     past_item : string;
                     XBegin,
                     Ybegin : Byte);
    Const
      N_Item = 4;                      { число тем меню }
      Color = 7; AltColor = 0;         { цвета символов и и фона }
      L = 25;                          { число символов}
      ItemList : array[1..N_Item] of string[L] = (
                                       '  Ввод данных.',
                                       '  Обработка данных.',
                                       '  Вывод данных.',
                                       '  Выход.');
 
    var i : byte;
    Begin
      Textattr := AltColor shl 4 + Color;
      { вывод тем }
      For i := 1 To N_Item Do
      Begin
        If (Pos('1',past_item) = 0)
        and ((i = 2) or (i = 3)) then
          TextAttr := Cyan;
        If (Pos('2',past_item) = 0)
        and (i = 3) then
          TextAttr := Cyan;
        If i = Item Then {изменить цвет для выброной темы }
          TextAttr := Color shl 4 + AltColor;
        GoToXY(XBegin+1,YBegin+i-1); Write(ItemList[i]);
        TextAttr := AltColor shl 4 + Color;
      End;
    End;
 
  { SelectItem - возвращает номер темы меню Item,
                 выбранной пользователем }
  procedure SelectItem(var Item : byte);
    const
      past_item : string[20] = '';
      XBegin = 27;                     { координаты верхнего }
      YBegin = 9;                      { левого угла меню }
      Up = #72; Down = #80;            { коды клавиш перемещения курсора вверх
                                       { и вниз }
      Enter = #13;                     { код клавиши Enter }
 
    var Symb : char;
        temp : string[3];
    Begin
      DrawMenu(XBegin,YBegin-1,XBegin+21,YBegin+4);
      Repeat
        ShowMenu(Item,past_item,XBegin,Ybegin);
        Symb := Readkey; If Symb = #0 Then Symb := Readkey;
        Case Symb of
          Up : Begin
                 Dec(Item);
                 If (Pos('1',past_item) = 0)
                    and (Item = 3) Then Item := Item - 2;
                 If (Pos('2',past_item) = 0)
                    and (Item = 3) Then Item := Item - 1;
                 If Item = 0 Then Item := 4;
               End;
          Down : Begin
                   Inc(Item);
                   If (Pos('1',past_item) = 0)
                      and (Item = 2) Then Item := Item + 2;
                   If (Pos('2',past_item) = 0)
                      and (Item = 3) Then Item := Item + 1;
                   If Item > 4 Then Item := 1;
                 End;
        End;
      until Symb = Enter;
      Str(Item,temp);
      past_item := past_item + temp;
    End;
 
  { InPut_X - ввод данных в массив X}
  procedure InPut_X(var X : arr;
                    var a,
                        dx : Extended;
                    var num : Byte);
    var
      i : Byte;
 
    Begin
      ClrScr;
      Repeat
        Write('Введите количество элементов в массиве(20< num < 100): ');
        {$I-}
        Readln(num);
        {$I+};
        If IOResult<> 0 Then Writeln('Нужно вводить целочисленное значение!');
      Until (num > 20) and (num < 100) and (IOResult = 0);
 
      Repeat
        Write('Введите значение первого элемента массива X ',
              '(-30 < a < 30): ');
        {$I-}
        Readln(a);
        {$I+};
        If IOResult<> 0 Then Writeln('Нужно вводить целочисленное значение!');
      Until(a > -30) and (a < 30) and (IOResult = 0);
 
      Repeat
        Write('Введите значение превращения функции(-30 < dx < 30): ');
        {$I-}
        Readln(dx);
        {$I+};
        If IOResult<> 0 Then Writeln('Нужно вводить целочисленное значение!');
      Until (dx > -30) and (dx < 30) and (IOResult = 0);
 
      ClrScr;
      Write('Форматирование массива Х...');
{      X[1] := a;    }
      For i := 1 To num Do
        X[i] := a + (i-1)*dx;
      Writeln('Готово!');
      Writeln('Нажмите любую клавишу');
      Readkey;
    End;
 
  { InPut_Y - ввод данным в массив Y}
  procedure InPut_Y(X : arr;
                    var Y : arr;
                    num : Byte);
    var
      i : Byte;
 
    Begin
      For i := 1 To num Do
        Y[i] := X[i]*X[i]*(1 - X[i]);
    End;
 
  { InsertSort - сортировка массива вставками}
  procedure InsertSort( var A : arr;
                        num : Byte);
    var
      i, k : Byte;
      x : Extended;
 
    Begin
      { Вставляем в уже отсортированную часть элементы со 2 по num }
      For i := 2 To num Do
        Begin
          k := i;
          x := A[i];
          { Передвигаем на 1 позицию направо элементы,
            большие вставляемого элемента (он записан в x) }
          { Условие k > 1 гарантирует, что мы не выйдем за
            границу массива, если вставляется элемент,
            меньше всех предыдущих.
            }
          While (k > 1) and (A[k - 1] < x) Do
            Begin
              A[k] := A[k - 1];
              k := k - 1;
            End;
          { Вставляем элемент в нужную позицию }
          A[k] := x;
        End;
    End;
 
  { TabDraw - рисует таблицу для вывода результата}
  procedure TabDraw( a,
                     dx  : Extended;
                     num : Byte);
    var
      i,j,
      x,y : byte;
 
    Begin
      ClrScr;
      x := 1; y := 6;
      Writeln(' ','Задание № 6.');
      Writeln(' ','X[1] = a, X[2] = a + dx, X[3] = a + 2*dx ...');
      Writeln(' ','a = ',a:0:3,', dx = ',dx:0:3,', N = ', num:2);
      Writeln(' ','Y = x*x*(1 - x)');
      Write(' ','Отсортировать массив YN по убыванию');
      TextAttr := Red + Black;       Write('     ▒ - Max');
      TextAttr := LightBlue + Black; Write('     ▒ - Min');
      TextAttr := LightGray + Black;
 
      For i := 2 to 79 do
        Begin
          GoToXY(i,y); Write('─');
          GoToXY(i,wherey+3); Write('─');
          GoToXY(i,24); Write('─');
        End;
 
      For i := y to 24 do
        Begin
          GoToXY(1,i);         Write('│');
          GoTOXY(wherex+12,i); Write('│');
          GoToXY(wherex+14,i); Write('│');
          GoToXY(wherex+25,i); Write('│');
          GoToXY(80,i);        Write('│');
        End;
 
      GoToXY(1,y); Write('┌');
      GoToXY(80,y); Write('┐');
      GoToXY(1,24); Write('└');
      GoToXY(79,24); Write('─┘');
 
      GoToXY(14,y); Write('┬');
      GoToXY(wherex+14,y); Write('┬');
      GoToXY(wherex+25,y); Write('┬');
 
      Inc(y,3);
 
      GoToXY(14,y); Write('┼');
      GoToXY(wherex+14,y); Write('┼');
      GoToXY(wherex+25,y); Write('┼');
 
      GoToXY(14,24); Write('┴');
      GoToXY(wherex+14,24); Write('┴');
      GoToXY(wherex+25,24); Write('┴');
 
      GoToXY(6,y-2);     Write('№ п/п');
      GoToXY(22,wherey); Write('X');
      GoToXY(38,wherey); Write('Y-исходный');
      GoToXY(62,wherey); Write('YN-обработанный');
 
    End;
 
  { MinMax - нахожить максимальное и минимальное значение в массиве}
  procedure MinMax(var A : arr;
                   var Min,
                       Max : Extended;
                       num : Byte);
    Var i : Byte;
    Begin
    Max := A[1];
    Min := A[1];
      For i := 2 to num do
        Begin
          If A[i] > Max Then Max := A[i]
            Else If A[i] < Min Then Min := A[i];
        End;
    End;
 
  { OutPut -  вывод резьтата в таблицу}
  procedure OutPut(X, Y, YN : arr;
                   a,
                   dx : Extended;
                   num : Byte);
    const
      h1 = 6;
      h2 = 20;
      h3 = 38;
      h4 = 64;
 
    var
      i,
      k_y : Byte;
      Min,
      Max : Extended;
 
    Begin
 
   {   ClrScr;  }
      MinMax(Y,Min,Max,num);
      TabDraw(a,dx,num);
      k_y := 10;
 
      For i := 1 To num Do
        Begin
          GoToXY(h1,k_y);  Write(i:2);
          GoToXY(h2,k_y);  Write(X[i]:6:3);
          If Y[i] = Max Then TextAttr := Red + Black
            Else If Y[i] = Min Then TextAttr := LightBlue + Black;
          GoToXY(h3,k_y);  Write(Y[i]:6:3);
          TextAttr := LightGray + Black;
          GoToXY(h4,k_y);  Write(YN[i]:6:3);
 
          if (i mod 14) = 0 then
            Begin
              k_y := 10;
              Readkey;
              If i <> num Then TabDraw(a,dx,num);
            End
           Else
             Inc(k_y);
        End;
      Readkey;
    End;
 
BEGIN
 { tabdraw(a,dx,num);
  readkey; }
  TextAttr := LightGray + Black;
  Item := 1;
    Repeat
      ClrScr;
      SelectItem(Item);
      Case Item of
        1 : InPut_X(X,a,dx,num);
 
        2 : Begin
              ClrScr;
              Write('Формирование массива Y...');
              InPut_Y(X,Y,Num);
              Writeln('Готово!');
              Writeln('Нажмите любую клавишу');
              Readkey;
 
              Write('Формирование массива YN...');
              YN := Y;
              InsertSort(YN,num);
              Writeln('Готово!');
              Writeln('Нажмите любую клавишу');
              Readkey;
            End;
 
        3 : OutPut(X,Y,YN,a,dx,num);
 
        4 : Exit;
      End;
    Until false;
  Readkey;
END.

{ InPut_X - ввод данных в массив X}
  procedure InPut_X(var X : arr;
                    var a,
                        dx : Extended;
                    var num : Byte);
    var
      i : Byte;
 
    Begin
      ClrScr;
      Repeat
        Write('Введите количество элементов в массиве(20< num < 100): ');
        {$I-}
        Readln(num);
        {$I+};
        If IOResult<> 0 Then Writeln('Нужно вводить целочисленное значение!');
      Until (num > 20) and (num < 100) and (IOResult = 0);
 
      Repeat
        Write('Введите значение первого элемента массива X ',
              '(-30 < a < 30): ');
        {$I-}
        Readln(a);
        {$I+};
        If IOResult<> 0 Then Writeln('Нужно вводить целочисленное значение!');
      Until(a > -30) and (a < 30) and (IOResult = 0);
 
      Repeat
        Write('Введите значение превращения функции(-30 < dx < 30): ');
        {$I-}
        Readln(dx);
        {$I+};
        If IOResult<> 0 Then Writeln('Нужно вводить целочисленное значение!');
      Until (dx > -30) and (dx < 30) and (IOResult = 0);
 
      ClrScr;
      Write('Форматирование массива Х...');
{      X[1] := a;    }
      For i := 1 To num Do
        X[i] := a + (i-1)*dx;
      Writeln('Готово!');
      Writeln('Нажмите любую клавишу');
      Readkey;
    End;