Не выводит дробь - 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. Подскажите пожалуйста. Заранее спасибо.

Решение задачи: «Не выводит дробь»

Листинг программы

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;

Объяснение кода листинга программы

Объявлены две переменные: sr (счетчик суммы нечетных чисел на четных местах) и k (счетчик количества нечетных чисел на четных местах).
Запускается цикл for, который проходит по всем элементам массива a от 1 до n.
В блоке if проверяется, является ли текущий элемент массива нечетным числом и находится ли он на четном месте (i mid 2=0). Если это так, то выполняются следующие действия:
- значение текущего элемента массива прибавляется к переменной sr.
- значение переменной k увеличивается на 1.
После цикла for проверяется значение переменной k. Если оно равно 0, то выводится сообщение Нет нечетных чисел на четных местах.
Если значение переменной k не равно 0, то выполняются следующие действия:
- значение переменной sr делится на значение переменной k.
- выводится сообщение Среднее=, за которым следуют значение переменной sr и две дополнительные цифры, записанные как 0:2.