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

[---Demon---]

2)Среднее арифметическое в виде функций (вывод среднего в осн. программе, а не в теле)
3)Записать в текстовый файл коды имеющие индекс кратный 3.

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.