Выдает ошибку деления на ноль

[---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;
     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.

[Stilet]

На какой строке выдает знаешь?

[---Demon---]

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

На какой строке выдает знаешь?

63 writeln('Srednee arifmeticheskoe kodov...=', sred(a,n)/k:0:3);

[Stilet]

Во-первых:

function sred(a:mas;n:byte):integer;
var i,
     s,
     k:integer;
 begin
     s:= 0; k:=0;
      for i := 1 to n do
       if i mod 3=0 then begin
        s := s + ord(a[i]);
        inc(k)
       end;
       sred:=s;
end;

Во вторых:

 
s:=sred(a,n);
if k<>0 then writeln('Srednee arifmeticheskoe kodov...=', s/k:0:3)
else writeln('Elementov net...');

[---Demon---]

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

Во-первых:

function sred(a:mas;n:byte):integer;
var i,
     s,
     k:integer;
 begin
     s:= 0; k:=0;
      for i := 1 to n do
       if i mod 3=0 then begin
        s := s + ord(a[i]);
        inc(k)
       end;
       sred:=s;
end;

Во вторых:

 
s:=sred(a,n);
if k<>0 then writeln('Srednee arifmeticheskoe kodov...=', s/k:0:3)
else writeln('Elementov net...');

тестовая задача qwertyasd он мне выдает Elementov net..., а должно сложится коды t+q+a и разделится на 3

[pray_driver]

Сообщение от ---Demon---

63 writeln('Srednee arifmeticheskoe kodov...=', sred(a,n)/k:0:3);

А это нормально, что в основной программе декларируется целочисленное k, но никак не определяется до использования?

Тут по-моему к бабке не ходи, будет деление на ноль :-)

Правила хорошего тона программирования конечно не обязательны, но облегчают сильно. Если есть вероятность, что где-то что-то будет неопределено, нужно выкидывать исключения.

[Stilet]

а должно

Ну а кто тебе мешает запустить программу под отладчиком и пройтись по шагам?

[---Demon---]

В любом случае спасибо за помощь!