Отсортировать массив по неубыванию линейной сортировкой - Turbo Pascal

Формулировка задачи:

Дан одномерный массив. С клавиатуры вводится N чисел. Отсортировать по неубыванию линейной сортировкой после первого минимального элемента

Решение задачи: «Отсортировать массив по неубыванию линейной сортировкой»

textual
                            Листинг программы 
                        

                            const
  n = 20;
 
var
  a: array  [1..n] of integer;
  i, j, min, imin, temp: integer;
 
begin
  for i := 1 to n do
    readln(a[i]);
  
  writeln('Исходный массив: ');
  for i := 1 to n do
  begin
    //  a[i] := -n div 2 + random(n);
    write(a[i]:4);
  end;
  min := a[1];
  imin := 1;
  for i := 2 to n do
    if a[i] < min then
    begin
      min := a[i];
      imin := i;
    end;    
  writeln;  
  writeln('Минимум: ', min, ' в позиции: ', imin);
  writeln('Отсортированный массив: ');  
  for i := imin + 1 to n - 1 do
    for j := i + 1 to n do
      if a[i] > a[j] then
      begin
        temp := a[i];
        a[i] := a[j];
        a[j] := temp;
      end;
  for i := 1 to n do
    write(a[i]:4);
end.
                        