Неправильно работает процедура сортировки выбором - PascalABC.NET

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

С книги переписан данный пример. Подскажите, почему выходит ошибка? Всё в точности как в книге. Подскажите! Что нужно исправить? (Должна выполниться сортировка по возрастанию)

program sort_vbIbor;
 
const
   n = 10;
   a: array [1..n] of integer = (20, 1, 3, 5, 2, 8, 9, 12, 17, 4);
 
var
   i: integer;
 
procedure SOrt(var a: array of integer; n: integer);
var
   i, j, im, c: integer;
begin
   for j := 0 to n - 1 do 
   begin
      im := j;
      for i := j to n - 1 do 
         if a[im] < a[i] then im := i;
      c := a[j];
      a[j] := a[im];
      a[im] := c;
   end;
end;
 
begin
   for i := 1 to n do 
      write(a[i], ' ');
   writeln; 
   SOrt(a, n);
   for i := 1 to n do
      write(a[i]);
end.

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

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

begin
  var Arr : array of Integer := (20, 1, 3, 5, 2, 8, 9, 12, 17, 4);
  WriteLn(Arr);
  System.Array.Sort(Arr);
  WriteLn(Arr);
end.

Объяснение кода листинга программы

Создается массив Arr типа array of Integer с десятью элементами, значения которых: 20, 1, 3, 5, 2, 8, 9, 12, 17, 4.
Выводится на экран содержимое массива Arr.
Массив Arr сортируется методом System.Array.Sort(Arr).
Выводится на экран отсортированный массив Arr.