Дан файл целых чисел. Создать файл действительных чисел , компонентами которого будут среднее арифметическое каждых 5 подряд записаных чисел.
В чем ошибка?
Код:
var f,g:textfile;
i,k,s:integer;
begin
assignFile(f,'C:\input.txt');
reset(f);
assignFile(g,'C:\output.txt');
rewrite(g);
k:=0;
s:=0;
while (not eof(f))do
begin
readln(f,i);
if k<5 then
begin
s:=s+i;
k:=k+1;
end
else
begin
writeln(g,s/5:3);
s:=0;
k:=0;
end;
end;
closefile(f);
closefile(g);
end;