Найти минимальное число, присвоить его значение последнему элементу массива

program Project1;
var
  a: array[1..50] of integer; // Переменная для хранения массива.
  n: integer; //   Переменная для хранения количества элементов массива.
  i: integer; // Вспомогательная переменная для организации цикла.
  minelem: integer; // Переменная для хранения значения минимального элемента.
  indmin: integer;  // Переменная для хранения значения индекса минимального элемента.
begin
  write('Введите количество элементов массива: ');
  Readln(n);
  for i:= 1 to n do     // Ввод значений элементов вручную.
   begin
     write('Введите значение элемента ',i,': ');
     Readln(a[i]);
   end;
  writeln('Исходный массив:');
  for i:= 1 to n do      // Вывод массива в консоль.
    begin
      write(a[i]:4);
      if i mod 10 = 0 then
        writeln;
    end;
  minelem:= 2147483647;
  for i:= 1 to n do
    if a[i] < minelem then  //  Условие для выбора минимального элемента.
      begin
        minelem:= a[i]; //  Выбор элемента с минимальным значением.
        indmin:= i;     //  Индекс элемента с минимальным значением.
      end;
  a[n]:= minelem;       //  Присвоение последнему элементу массива значения минимального элемента.
  a[indmin]:= 3*n;      //  Присвоение элементу с минимальным значением значение равное 3*N.
  writeln;
  writeln('Измененный массив:');
  for i:= 1 to n do      // Вывод массива в консоль.
    begin
      write(a[i]:4);
      if i mod 10 = 0 then
        writeln;
    end;
 
Readln;
end.

 
minelem:= a[1];
  indmin:= 1;
  for i:= 2 to n do
    if a[i] < minelem then  //  Условие для выбора минимального элемента.
      begin
        minelem:= a[i]; //  Выбор элемента с минимальным значением.
        indmin:= i;     //  Индекс элемента с минимальным значением.
      end;

  MinElem := MaxInt;
  IndMin := 1;
  for i := 1 to n do
    if MinElem > a[i] then
      begin
        MinElem := a[i];
        IndMin := i;
      end;

MinElem := MaxInt;