Последоватеоьность и процедура., Помогите кто чем сможет...=) Опции

[DLF]

Ввести неупорядоченную последовательность из 20 элементов.Написать процедуры упорядочивания последовательности и вставки К новых элементов на правильное место в упорядоченную последовательность.Вывести результаты всех обработок последовательности.

Заранее спасибо.=)

[volvo]

Если предполагать, что размер массива взят с большим запасом, то есть он заведомо больше 20+К

Коли уж тут прозвучали высказывания, что тусуются на форуме в основном школьники и студенты, то для них этот подход неприменим! Не надо учить начинающих программистов выделять массивы "с большим запасом". Потом от этой привычки очень сложно избавиться... (Администратор форума программистов - это не только закрытие, удаление и перемещение тем, но и обдумывание вот таких вопросов тоже, не так ли?)

const K = 5;
Var Arr = array[1 .. 20 + K] of integer; { <--- тип менять по желанию }
...

если K известно заранее, или

type 
  pArrType = ^arrType;
  arrType = array[1 .. 1] of integer;
var
  K: integer;
  arr: pArrType;
...
  readln(K);
  getmem(arr, 20 + K * sizeof(integer));
...

если его надо вводить по ходу выполнения программы.