Сортировка со вставкой числа

Подробности

Автор: Топчий Алексей

{создать массив с трехзначными числами, отсортировать пузырьком и вставить в нужную
 позицию трехзначное число}
var
  m: array[1..50] of integer;
  mm: array[1..51] of integer;
  i, g, v: integer;

begin
  for i := 1 to 50 do {инициализация массива}
    m[i] := random(899) + 100;
  for i := 1 to 50 do {вывод массива}
    write(m[i], ', ');
  Writeln();
  Writeln();
  for g := 1 to 50 do {сортировка массива}
    for i := 1 to 50 - g do
      if m[i] > m[i + 1] then
        swap(m[i], m[i + 1]);
  for i := 1 to 50 do {Вывод отсортированного массива}
    write(m[i], ', ');
  Writeln();
  Writeln();
  for i := 1 to 50 do {копирование массива в массив со свободным местом}
    mm[i] := m[i];
  v := random(899) + 100; {инициализация числа}
  for i := 50 downto 1 do {вставка числа}
    if m[i] < v then
    begin
      for g := 50 downto i do
        mm[g + 1] := mm[g];
      mm[i] := v;
      break;
    end;
  writeln(v);
  Writeln();
  for i := 1 to 51 do {вывод массива}
    write(mm[i], ', ');
end.