Поиск минимального элемента в части массива - Pascal ABC

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

//по убыванию
program sortarr;
const
     SIZE=10;   a:array[1..SIZE] of integer=(1,2,3,4,5,6,7,8,9,10);
var
 
     i:integer;                 { номер элемента, от которого ведется поиск }
                                    { минимального эл-та }
     min:integer;            { номер минимального элемента в части }
                                    { массива от i до верхней границы массива }
     j:integer;                 { номер эл-та, сравниваемого с минимальным }
     buf:integer;             { буфер, используемый при обмене эл-тов массива}
     k:integer;
begin
cls;
     writeln('Сортировка');
     for i:=1 to SIZE-1 do
     begin      { поиск минимального эл-та  в части массива от a[i] до a[SIZE]}
          for j:=i+1 to SIZE do begin
               if a[j]>a[i] then                { поменяем местами a[j] и a[i] }
              begin
 buf:=a[i];
               a[i]:=a[j];
               a[j]:=buf;
end;
          {выведем массив }
          for k:=1 to SIZE do write(a[k],' ');
          writeln;
                 end;     end;     writeln('Массив отсортирован.'); end.

Как осуществить организацию ввода через константы!!! Не могу понять в чём ошибка

//по убыванию
program sortarr;
const
     SIZE=10;
var
     a:array[1..SIZE] of integer;
     i:integer;                 { номер элемента, от которого ведется поиск }
                                    { минимального эл-та }
     min:integer;            { номер минимального элемента в части }
                                    { массива от i до верхней границы массива }
     j:integer;                 { номер эл-та, сравниваемого с минимальным }
     buf:integer;             { буфер, используемый при обмене эл-тов массива}
     k:integer;
begin
cls;
     writeln('Сортировка массива.');
     write('Введите',SIZE:3,' целых в одной строке ');
     writeln('через пробел и нажмите <Enter>');
     for k:=1 to SIZE do read(a[k]);
 
     writeln('Сортировка');
     for i:=1 to SIZE-1 do
     begin      { поиск минимального эл-та  в части массива от a[i] до a[SIZE]}
          for j:=i+1 to SIZE do begin
               if a[j]>a[i] then                { поменяем местами a[j] и a[i] }
              begin
 buf:=a[i];
               a[i]:=a[j];
               a[j]:=buf;
end;
          {выведем массив }
          for k:=1 to SIZE do write(a[k],' ');
          writeln;
                 end;     end;     writeln('Массив отсортирован.'); end.

А так работает!!!!!!!!!!!!!!!!

Но нужно что бы было через константы

Хотя бы примерно как нужно массив задавать через константы

Решение задачи: «Поиск минимального элемента в части массива»

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

uses crt;
const SIZE=10;
     a1:array[1..SIZE] of integer=(1,2,3,4,5,6,7,8,9,10);
var i,j,k,min,buf:integer;
    a:array[1..SIZE] of integer;
begin
a:=a1;
writeln('Г€Г±ГµГ®Г¤Г*Г»Г© Г¬Г*Г±Г±ГЁГў:');
for i:=1 to size do
write(a1[i]:3);
writeln;
for i:=1 to SIZE-1 do
for j:=i+1 to SIZE do
if a[j]>a[i] then
 begin
  buf:=a[i];
  a[i]:=a[j];
  a[j]:=buf;
 end;
writeln('ГЊГ*Г±Г±ГЁГў Г®ГІГ±Г®Г°ГІГЁГ°Г®ГўГ*Г* ГЇГ® ГіГЎГ»ГўГ*Г*ГЁГѕ');
for k:=1 to SIZE do
write(a[k]:3);
end.

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

В начале кода подключается библиотека crt, которая предоставляет функции для работы с памятью.
Затем определяется константа SIZE, которая определяет размер массива.
Создается массив a1, который содержит числа от 1 до SIZE.
Переменные i, j, k и min инициализируются значением 0.
Переменная buf инициализируется значением 0.
В цикле for происходит вывод каждого элемента массива a1 с помощью функции write. Функция write(a1[i]:3) означает, что выводится третий символ (считая с нуля) каждого элемента массива a1.
После вывода всех элементов массива a1 выводится символ новой строки.
Затем начинается второй цикл for, который проходит по всем элементам массива a1, начиная с индекса i и заканчивая индексом SIZE-1.
Внутри этого цикла происходит сравнение текущего элемента a[j] с предыдущим элементом a[i]. Если a[j] больше a[i], то происходит переключение значений переменных buf и a[i], а затем значение a[i] присваивается обратно в a[j]. Это позволяет переместить минимальное значение в конец массива.
После завершения внутреннего цикла выводится символ новой строки.
Наконец, в цикле for k=1 до SIZE выводится каждый элемент массива a с помощью функции write.
Конец программы.