Упорядочить элементы одномерного массива, расположенные до минимального элемента по возрастанию

const
  n = 15;
var
  a : array [1..n] of integer;
  i, j, k, min, imin : integer;
begin
  randomize;
  min := 1000;
  writeln('пусть дан массив:');
  {ввод массива, вывод поиск минимума}
  for i := 1 to n do
  begin
    a[i] := random(100);
    write(a[i]:4);
    if a[i] < min then
    begin
      min := a[i];
      imin := i
    end
  end;
  writeln;
  writeln('минимальный элемент - a[', imin, '] = ', a[imin]);
  {сортируем от 1 до imin элемента}
  for i := 1 to imin do
    for j := imin downto i do
      if a[i] > a[j] then
      begin
        k := a[i];
        a[i] := a[j];
        a[j] := k
      end;
  {выводим отсортированный массив}
  writeln('после сортировки:');
  for i := 1 to n do write(a[i]:4);
  readln
end.

Var A:array[1..100] of integer;
    i,j,imin,t,n:integer;
Begin
    write('Введите размерность: ');readln(n);
    For i:=1 to n do
    Begin
      A[i]:=random(31)-15;
      write(A[i]:4);
    End;
    imin:=1;
    For i:=2 to n do
     if A[i]<A[imin] then
      imin:=i;
    writeln;
    if imin<n then
    Begin
      writeln('Min = ',A[imin],' он находится A[',imin,']');
      For i:=imin downto 1 do
       For j:=1 to i-1 do
        if A[j]<A[j-1] then
        Begin
          t:=A[j];
          A[j]:=A[j-1];
          A[j-1]:=t;
        End;
      For i:=1 to n do
       write(A[i]:4);
    End
    else writeln('Max элемент последний в массиве');
    readln;
End.

const
  n = 15;
var
  a : array [1..n] of integer;
  i, j, k, min, imin : integer;
begin
  {ручной ввод}
  for i := 1 to n do
  begin
    write(i, '-й элемент = ');
    readln(a[i])
  end;
  min := 1000;
  writeln('пусть дан массив:');
  {вывод? поиск минимума}
  for i := 1 to n do
  begin    
    write(a[i]:4);
    if a[i] < min then
    begin
      min := a[i];
      imin := i
    end
  end;
  writeln;
  writeln('минимальный элемент - a[', imin, '] = ', a[imin]);
  {сортируем от 1 до imin элемента}
  for i := 1 to imin do
    for j := imin downto i do
      if a[i] > a[j] then
      begin
        k := a[i];
        a[i] := a[j];
        a[j] := k
      end;
  {выводим отсортированный массив}
  writeln('после сортировки:');
  for i := 1 to n do write(a[i]:4);
  readln
end.