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

program Sortirovka;
 
uses
  Crt;
 
var
  a: array[Byte] of char;
  min: char;
  sred: real;
  i, j, n, k, imin: integer;
 
begin
  clrscr;
  write('Vvedite razmernost massiva n:');
  readln(n);
  writeln('Vvedite elementy massiva');
  for i := 1 to n do
  begin
    write('a[', i, ']=');
    readln(a[i]);
  end;
  
  j:=n;
  while j > 1 do begin
        min := a[1];
        imin := 1;
        for i := 2 to j do
            if a[i] < min then begin
                min := a[i];
                imin := i
            end;
        a[imin] := a[j];
        a[j] := min;
        j := j - 1
    end;
 
  sred := 0;
  for i := 1 to n do
  begin
    if i mod 3 = 0 then
    begin
      sred := sred + ord(a[i]);
      inc(k);
    end;
  end;
  
  writeln('Sortirovka v poryadke ubvaniu:');
  for i := 1 to n do
    write(' ',a[i]);
  writeln;
  
  writeln('Srednee arifmeticheskoe kodov...=', sred/k:0:3);
  readln;
end.

program Sortirovka;
uses Crt;
type mas=array[Byte] of char;
procedure sort(var a:mas;n:byte);
var i,j,imin:byte;
    min:char;
begin
    j:=n;
while j > 1 do
 begin
   min := a[1];
    imin := 1;
     for i := 2 to j do
      if a[i] < min then
 begin
     min := a[i];
      imin := i
 end;
     a[imin] := a[j];
      a[j] := min;
       j := j - 1
 end;
end;
function sred(a:mas;n:byte):real;
var  i:byte;
     s:real;
     k:integer;
 begin
     s:= 0;
      for i := 1 to n do
       if i mod 3=0 then begin
        s := s + ord(a[i]);
         sred:=s/n;
          inc(k)
 end;
end;
 
var  a:mas;
     n,i:byte;
     f:text;
     s:real;
     k:integer;
 begin
  clrscr;
   write('Vvedite razmernost massiva n:');
    readln(n);
     writeln('Vvedite elementy massiva');
      for i := 1 to n do
 begin
  write('a[', i, ']=');
   readln(a[i]);
 end;
  clrscr;
   writeln('Ishodnyj massiv:');
    for i:=1 to n do
     write(a[i]);
      writeln;
       sort(a,n);
        writeln('Sortirovka v poryadke ubvaniu:');
         for i := 1 to n do
          write(a[i]);
           writeln;
            writeln('Srednee arifmeticheskoe kodov...=', sred(a,n)/k:0:3);
   assign(f,'Kod.txt');
    rewrite(f);
     for i:=1 to n do
      if i mod 3=0 then write(f,' ',ord(a[i]));
       close(f);
        readln
end.