Вставить после максимального элемента массива значение минимального элемента - PascalABC.NET

const
  n = 100;
 
var
  A: array [1..n] of integer;
  posmax, min, max, k: integer;
 
begin
  max := 0;
  min := 99999;
  randomize;
  readln(k);//размер массива
  if k < n then
  begin
    for var i := 1 to k do //заполнение числами
    begin
      A[i] := random(100);
      write(A[i]:4); //вывод элемента
      if a[i] > max then //если больше максимального
      begin
        max := A[i]; //изменить максимальный
        posmax := i; //запомнить позицию
      end
      else
      if a[i] < min then //если меньше минимального
        min := A[i]; //изменить минимальный
    end;
    for var i := k downto posmax + 1 do //сдвиг массива
      A[i + 1] := A[i];
    A[posmax + 1] := min; //вставка минимального после максимального
    writeln;
    for var i := 1 to k + 1 do //вывод преобразованного массива
      write(A[i]:4);
  end
  else
    writeln('Выскочит ошибка диапазона');
end.