Упорядочение последовательности из N элементов. Вставка новых элементов в упорядоченную последовательность

const
  seqSize = 1000;
  
var
  seq : array [0..seqSize] of Integer;
 
procedure AddByTheEnd(n : Integer);
begin
  inc(seq[0]);
  Write('Добавьте ', n, ' элемент в конец последовательности: '); ReadLn(seq[seq[0]]);
end;
 
procedure AddSort(n : Integer);
var v, t, i : Integer;
begin
  Write('Добавьте ', n, ' элемент в последовательность: '); ReadLn(v);
  for i := 1 to seq[0] do
    if v < seq[i] then
      begin
        t := seq[i]; seq[i] := v; v := t;
      end;
  inc(seq[0]); seq[seq[0]] := v;
end;
  
procedure ReadNElements;
var
  N, i : Integer;
begin
  Write('Введите значение N ='); ReadLn(N);
  for i := 1 to N do
    AddByTheEnd(i);
end;
 
procedure ReadKElements;
var
  K, i : Integer;
begin
  Write('Введите значение K ='); ReadLn(K);
  for i := 1 to K do
    AddSort(i);
end;
 
procedure OutSeq(msg : String);
var
  i : Integer;
begin
  Write(msg); for i := 1 to seq[0] do Write(#32, seq[i]); WriteLn;
end;
 
procedure Swap(a, b : Integer);
var t : Integer;
begin
  t := seq[a]; seq[a] := seq[b]; seq[b] := t;
end;
 
procedure Sort;
var
  Left, Min, i : Integer;
begin
  Left := 1;
  repeat
    Min := Left;
    for i := Left + 1 to seq[0] do
      if seq[i] < seq[Min] then Min := i;
    if Min <> Left then Swap(Left, Min);
    inc(Left);
  until Left = seq[0];
end;
 
begin
  seq[0] := 0; // в начале было пусто
  ReadNElements; // ввод N элементов в последовательность без упорядочивания
  OutSeq('Введена последовательность:');
  Sort;
  OutSeq('Последовательность отсортирована:');
  ReadKElements; // ввод K элементов в последовательность с упорядочиванием
  OutSeq('Конечная последовательность:');
end.