среднее арифметическое

[Mashul'ka]

Получается только половина от среднего арифметического...Что не так?
program Project1;

{$APPTYPE CONSOLE}
var f : file of real;
Elem : real;
Sum : double;
Cnt,i : integer;
begin
Sum := 0;
Cnt := 0;
Assign(f,'D:\file.bin');
rewrite(F);
writeln;
write('Vvedite kol-vo znachenij v fajle, cnt:');
read(cnt);
writeln('Vvedite elementy fajla:');
for i:=1 to cnt do
begin
readln(elem);
write(F,elem);
end;
close(F);
writeln;
writeln('Chetnye elementy fajla:');
reset(F);
Reset(f);
while Not Eof(f) do begin
Inc(Cnt);
Read(f,Elem);
Sum := Sum + Elem;
end;
if Cnt = 0 then WriteLn('Íåò ýëåìåíòîâ â ôàéëå. Çíà÷èò è ñðåäíåãî òîæå íåò!')
else WriteLn('Ñðåäíåàðèôìåòè÷åñêîå = ',(Sum/Cnt):6:2);
close(f);
readln;

end.

[Cakeinpanic]

зачем два раза ресет?
и зачем так много мороки?
for i:=1 to cnt do
begin
readln(elem);
result=result+elem;
write(F,elem);
end;
result=result/i;