Написать программу обработки одномерного массива

imn:=1;
for i:=1 to n do
if abs(a[i])<a[imn] then imn:=i;

i:=2;
while(i<=n)and(a[i]>a[i-1]) then inc(i);
if i>n then writeln('Последовательность монотонно возрастает')
else writeln('Последовательность не монотонно возрастающая')

n:=n+1;
for i:=n downto 2 do
a[i]:=a[i-1];
a[1]:=x;

program Project1;
 
const
  maxelem = 100;
type
  TArr = array [1..maxelem] of integer;
 
procedure InArray(var arr: TArr; var nn: integer);
{Процедура для ввода значений в одномерный массив}
var
  i: integer;
begin
  write('Введите значение максимального количества вводимых элементов массива: ');
  Readln(nn);
  for i:= 1 to nn do
    begin
      write('Введите значение ',i,' элемента: ');
      Readln(arr[i]);
    end;
end;
 
procedure OutArray(arr: TArr; nn: integer);
{ Процедура для вывода одномерного массива в консоль}
var
  i: integer;
begin
  for i:= 1 to nn do
    begin
      write(arr[i]:5);
      if i mod 10 = 0 then
        writeln;
    end;
end;
 
 
function IndexMinElem(arr: TArr; nn: integer): integer;
{Функция, которая находит индекс минимального по модулю элемента}
var
  i: integer;
  MinValueElement: integer;
  IndexMinElement: integer;
begin
  MinValueElement:= abs(arr[1]);
  IndexMinElement:= 1;
   for i:= 1 to nn do    {Нахождение минимального значения среди элементов массива }
     if abs(arr[i]) < MinValueElement then
       begin
         MinValueElement:= abs(arr[i]);
         IndexMinElement:= i;
       end;
  IndexMinElem:= IndexMinElement;
end;
 
function MonotonUp(Arr:TArr; nn: integer): boolean;
{Функция, которая определяет, является ли последовательность монотонно возрастающей}
var
  i: integer;
  flag: boolean;
begin
  flag:= true;
  for i:= 1 to nn-1 do
    if arr[i] > arr[i+1] then
       flag:= false;
  MonotonUp:= flag;
end;
 
procedure NewElem( var arr: TArr; var nn: integer; xx: integer);
{Процедура, которая вставляет в начало массива новый элемент}
var
  i: integer;
begin
  nn:= nn + 1;
  for i:= nn-1 downto 1 do
    arr[i+1]:= arr[i];
  arr[1]:= xx;
end;
 
 
var
  a: array [1..maxelem] of integer; { Переменная для  хранения массива.}
  n: integer; {  Переменная для хранения значения количества элементов в массиве.}
  i: integer; { Вспомогательные переменные для организации циклов.}
  x: integer; { Переменная для хранения значения нового элемента массива}
begin
  InArray(a,n);
  writeln('Исходный массив: ');
  OutArray(a,n);
  writeln;
  writeln('Индекс минимального по модулю элемента массива: ',IndexMinElem(a,n));
  if MonotonUp(a,n) then
    writeln('Последовательность монотонно возрастающая. ')
  else
    writeln('Последовательность не является монотонно возрастающей. ');
  write('Введите значение нового элемента массива: ');
  Readln(x);
  NewElem(a,n,x);
  writeln('Массив с новым элементом: ');
  OutArray(a,n);
 
  Readln;
end.