Прикреплено два файла
в первом само задание, во втором выполненная работа
у меня получается только через функцию РАНГ
а надо через ЕСЛИ
объясните

Program yxl; uses crt; const n=15; var     mass: array [1..n+2] of integer;     i,j,temp: integer; begin     writeln('*** alphaeus is ***');     writeln('*** ok ***');     writeln(); writeln();     writeln('программа упорядочивает массив по возрастанию ');     writeln('и вставляет числа -2 и 5, не нарушая .'); {создаём массив}     randomize;     writeln('начальный массив: ');     for i: =1 to n do         begin             mass[i]: =random(100)-50;           write(mass[i]: 4,' ');         end; {сортируем массив}     for i: =1 to n-1 do          for j: =i+1 to n do             if mass[i]> mass[j] then                  begin                         temp: =mass[i];                           mass[i]: =mass[j];                           mass[j]: =temp;                 end;     writeln;     writeln('отсортированный массив: ');     for i: =1 to n do         begin             write(mass[i]: 4,' ');         end; {добавляем к массиву числа -2 и 5 и сортируем полученный массив}     mass[n+1]: =-2; mass[n+2]: =5;     for i: =1 to n+1 do          for j: =i+1 to n+2 do             if mass[i]> mass[j] then                  begin                     temp: =mass[i];                       mass[i]: =mass[j];                       mass[j]: =temp;                 end; {выводим итоговый массив}     writeln(' массив: ');     for i: =1 to n+2 do          write(mass[i]: 4,' '); end.