[angvelem]

Кто из нас издевается:

Код:

          for i:=2 to n do
          begin
          s:=a[i]; // запомним элемент на случай сдвига
          k:=0;
                {Поиск места элемента в упорядоченной последов-ти}
          for j:=i-1 downto 1 do
          if a[j]<=a[i]
          then
            begin
            k:=j; // можно сдвигаться слева направо, справа налево
            break; // если элемент найден, больше перебирать не нужно
            end;
                   {Сдвиг части последовательности}
          for j:=i downto k+1 do
          a[j]:=a[j-1];
          a[k+1]:=s;// поставить элемент на нужное место
          end;

не можешь нормально описать, пожалуйста в раздел работа. А у меня желание уже нет.