Оформить в виде процедуры сортировку массива

Programm Massiv;
uses crt;
const max=100;
var a:array [1..max]of integer;
* * n,i,j,k,nmin,buf:integer;
* * sr:real;
Begin
clrscr;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
sr:=0;k:=0;
for i:=1 to n do
*begin
* write('a[',i,']=');
* readln(a[i]);
* if a[i] mod 2=0 then
* *begin
* * k:=k+1;{кол. четных}
* * sr:=sr+a[i];
* *end;
*end;
if k>0 then sr:=sr/k;
for i:=1 to n-1 do
* begin
* * nmin:=i;
* * for j:=i+1 to n do
* * if a[j]>a[nmin] then nmin:=j;
* * buf:=a[i];
* * a[i]:=a[nmin];
* * a[nmin]:=buf;
* end;
writeln('Упорядоченный массив: ');
for i:=1 to n do
write(a[i]:4);
writeln;
if k=0 then write('Четных элементов нет!')
else write('Среднее четных=',sr:0:2);
readln;
end.

uses crt;
const nmax=100;
type mas=array [1..nmax]of integer;
procedure Sort(var v:mas;x:byte);
var i,j,nmin:byte;
    buf:integer;
begin
{сортировка выбором по убыванию}
for i:=1 to x-1 do
  begin
    nmin:=i;
    for j:=i+1 to x do
    if v[j]>v[nmin] then nmin:=j;
    buf:=v[i];
    v[i]:=v[nmin];
    v[nmin]:=buf;
  end;
writeln('Упорядоченный массив: ');
for i:=1 to x do
write(v[i]:4);
writeln;
end;
function Sred(v:mas;x:byte;var k:byte):real;
var i:byte;
    sr:real;
begin
sr:=0;k:=0;
for i:=1 to x do
if v[i] mod 2=0 then
 begin
  k:=k+1;{кол. четных}
  sr:=sr+v[i];{ их сумма}
 end;
if k>0 then sr:=sr/k;{их среднее}
Sred:=sr;
end;
var a:mas;
    n,i,kch,k:byte;
    f:text;
    srd:real;
    nf:string;
begin
clrscr;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
Sort(a,n);
srd:=Sred(a,n,kch);
if kch=0 then writeln('Четных элементов нет!')
else writeln('Среднее арифметическое четных элементов=',srd:0:2);
write('Имя файла для записи: ');
readln(nf);
nf:=nf+'.txt';
assign(f,nf);
rewrite(f);
writeln(f,'Nechetnye elementy massiva A:');
k:=0;
for i:=1 to n do
if a[i] mod 2<>0 then
 begin
  k:=1;
  write(f,' ',a[i]);
 end;
if k=0 then write(f,'Nechetnyh elementov v massive A net!');
close(f);
write('Нечетные элементы массива записаны в файл ',nf);
readln
end.