Нужно исправить програму

[---Demon---]

Не правильно считает среднее значение, не могу понять почему!
Вычислить среднее арифметическое кодов элементов отсортированного массива, имеющих индекс кратный трем.
Не коды должны быть кратны 3, а индексы!

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;
begin
s:= 0;
for i := 1 to n do
s := s + ord(a[i]);
sred:=s/n;
end;

var a:mas;
    n,i:byte;
    f:text;
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):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.

[ViktorR]

Функция, в которой вычисляется среднее не сепарирует элементы массива по признаку делимости индекса на 3.

s:= 0;
for i := 1 to n do
s := s + ord(a[i]);
sred:=s/n;

Можно так, например:

s:= 0; k := 0;
for i := 1 to n do
   if ((i mod 3) = 0) then begin
      s := s + ord(a[i]);
      k := k + 1;
   end;
sred:=s/k;

Как-то так, ...

[s-andriano]

Сообщение от ViktorR

Функция, в которой вычисляется среднее не сепарирует элементы массива по признаку делимости индекса на 3.

s:= 0;
for i := 1 to n do
s := s + ord(a[i]);
sred:=s/n;

И, кроме того, элементы массива индескируются с 0, а перебор начинается с 1 - a[0] игнорируется, хотя 0 делится на 3 без остатка.

Можно так, например:

s:= 0; k := 0;
for i := 1 to n do
   if ((i mod 3) = 0) then begin
      s := s + ord(a[i]);
      k := k + 1;
   end;
sred:=s/k;

Как-то так, ...

Извращение гнать цикл n раз, если нужна сумма всего n/3 слагаемых. А лишний условный оператор - вообще беда для современных суперскалярных процессоров.

for i := 0 to n div 3 do
  inc(s, ord(a[i*3]));