Вставка элементов в одномерный массив (без функций)

program wstawka_eliemientow_w_massiw;
uses crt;
const min=1;       
      max=20;          {задаём кол-во элементов в массиве}
type zona=min..max;
     massiw=array[zona] of integer;
var mas:massiw;
    i,j:zona;
    a,N,M:integer;
    T:boolean;
BEGIN
randomize;      
clrscr;
N:=random(20);                 { N и M преобретают значения }
writeln('4ucJlo N = ',N);
M:=random(20);
Writeln('4ucJlo M = ',M);
 
  for i:=min to max-2 do                    { заполняем массив случайными числами, }
    begin                                           { идущими по возрастающей (до max-2 т.к. нужно }
                                                          { оставить два места в массиве для наших N и M) }
     mas[i+1]:=mas[i]+random(5);                 
     write(mas[i],' ');                              { выводим на экран получившийся массив }                  
    end;
 
  for i:=min to max-2 do                  { перебираем массив до момента нахождения элемента большего N }
    if (mas[i]>N) and (t=false) then     
      begin                                      { т.к. все последующие елементы массива так же больше N }         
        t:=true;                                  { приходится закрыть возможность исполнения if'a }
        a:=mas[i];                                { при помощи переменной t }
        mas[i]:=N;
          for j:=i+1 to max do               { вставив на место N двигаем элементы стоящие за N }
             begin                                 { поочерёдным присваиванием значения элемента предыдущего, }
             N:=mas[j];                              { элементу настоящему }
             mas[j]:=a;
             a:=N;
             end;
      end;
 
  for i:=min to max-1 do                 { одно место заполнил элемент N, потому mas-1 }
    if (mas[i]>M) and (t=true) then     { в остальном повторяем процедуру для N, но }
      begin                                          { уже для M }
        t:=false;
        a:=mas[i];
        mas[i]:=M;
          for j:=i+1 to max do
             begin
             M:=mas[j];
             mas[j]:=a;
             a:=M;
             end;
      end;
 
writeln;
  for i:=min to max do    {тут уже до max т.к. все елементы заполнены }
  write(mas[i],' ');              { и выводим получившийся массив :) }
readkey;
END.