Отсортировать массив методом выделения минимального элемента в порядке убывания

uses crt;
const nmax=100;
type mas=array[1..nmax] of integer;
procedure sort(var x:mas;m:integer);
var i,j,n,k,jmn,a:integer;
begin
n:=0;{количетво отсортированных}
i:=1;{начало массива}
while i<m do {пока не конец - 1 }
 begin
  jmn:=1; {пусть это пока индекс минимума}
  for j:=1 to m-n do{с начала до уже выставленного на место минимума}
  if x[j]<x[jmn] then jmn:=j;{находим индекс самого мин.}
  a:=x[jmn];{запомним значение}
  for k:=jmn to m-n-1 do {сдвинем на него все неотсортированные элементы}
  x[k]:=x[k+1];
  x[m-n]:=a;{вставим очередной минимум на место}
  n:=n+1; {увеличим количетво отсортированных}
  i:=i+1; {идем вперед}
 end;
writeln('Отсортированный массив:');
for i:=1 to m do
write(x[i]:4);
writeln;
end;
function sred(x:mas;m:integer;var k:integer):real;
var i:integer;
    s:real;
begin
s:=0;
k:=0;
for i:=1 to m do
if x[i]mod 2=0 then
 begin
  k:=k+1;
  s:=s+x[i];
 end;
if k=0 then sred:=0
else sred:=s/k;
end;
var a:mas;
    m,i,j,k:integer;
    s:real;
    f:text;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходный массив A:');
for i:=1 to m do
 begin
  a[i]:=random(100);
  write(a[i]:4);
 end;
writeln;
sort(a,m);
s:=sred(a,m,k);
writeln('Среднее арифметическое четных чисел=',s:0:2);
if k=0 then write('В масиве нет четных чисел')
else
 begin
  assign(f,'result.txt');
  rewrite(f);
  for i:=1 to m do
  if a[i] mod 2=0 then write(f,' ',a[i]);
  close(f);
  write('Четные числа записаны в файл result.txt');
 end;
readln
end.