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

//по убыванию
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.