Не выводит дробь - Pascal

Формулировка задачи:

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const nmax =100;
  TYPE Tmas = array[1..nmax] of LongInt;
  procedure readmas( var x:tmas; var f:Text; var n: longint);
    var i: longint;
    begin
      Readln(f,n);
      for i:=1 to n do
        read(f,x[i]);
    end;
 
  procedure swap(var a, b:longint);
    var tmp:longint;
    begin
      tmp:=a;
      a:=b;
      b:=tmp;
    end;
 
  Function ser(sum:longint; n:longint): real;
    var serr:real;
    begin
 
      if n=0 then
        serr:=0
      else
        serr:=sum div n;
 
 
      ser:=serr;
    end;
 
 
  var mas: Tmas;
  i ,n,par_n,sum1,masi:longint;
  ser1:real;
  fin,fout:Text;
 
begin
 Assign(fin,'input.txt');
 Assign(fout,'output.txt');
 Reset(fin); Rewrite(fout);
 
 
 readmas(mas,fin,n);
 
 
 Par_n:=0;
 sum1:=0;
 ser1:=0;
 
 for i:=1 to n do
      begin
        masi:=mas[i];
      //  writeln(fout,'1/1',masi,' ',sum1,' ', i);
        if (abs(masi) mod 2)=1 then
          begin
           //  writeln(fout,'1/1',masi,' ',sum1,' ', i,' ', par_n);
             if (i mod 2)=0 then
              begin
                 sum1:=sum1+masi;
                 par_n:=par_n+1;
                // writeln(fout,'1/1',masi,' ',sum1,' ', i,' ', par_n);
              end;
 
          end;
 
      end;
 
 //ser1:=ser(sum1,par_n);
 
 writeln(fout, ser(sum1,par_n):0:4);
 
 Close(fin); Close(fout);
end.
Как вы можете увидеть, это мой код. Основная задача, это взять среднее число из тех чисел, которые не парые и находятся в парных ячейках масива. При выводе ответа показывает 0,0000 а не 1,500. Подскажите пожалуйста. Заранее спасибо.

Код к задаче: «Не выводит дробь - Pascal»

textual
sr:=0;
k:=0;
for i:=1 to n do
if odd(a[i])and(i mid 2=0) then
 begin
  sr:=sr+a[i];
  k:=k+1;
 end;
if k=0 then write('Нет нечетных чисел на четных местах') 
else
 begin
  sr:=sr/k;
  write('Среднее=',sr:0:2);
 end;

6   голосов, оценка 3.333 из 5


СОХРАНИТЬ ССЫЛКУ