Задание на тему робота с файлами.

[aerosm]

Дан файл целых чисел. Создать файл действительных чисел , компонентами которого будут среднее арифметическое каждых 5 подряд записаных чисел.
На Delphi.

Искал на форуме, не нашел.
Помогите пожалуйста.

[Летучий_СкилетиК]

Файлы типизированные использовать или тектовые? я просто текстовые сделал.

uses SysUtils;
var f,g:text;
    i,k,s:integer;
begin
     assign(f,'d:\input.dat');
     reset(f);
     assign(g,'output.dat');
     rewrite(g);
     k:=0;s:=0;
        while (not eof(f))do
        begin
             read(f,i);
             if k<5 then begin s:=s+i;k:=k+1;end else
             begin
                  write(g,s/5:3);
                  s:=0;
                  k:=0;
             end;
        end;
close(f);
close(g);
end.

[Serge_Bliznykov]

я на 99.9% уверен, что в задаче нужно использовать именно типизированные файлы:

var fIn : file of integer;
   fOut : file of double; (или : file of real;)

[aerosm]

Все!Большое спасибо!Раобрался.Я во входящем файле числа подряд записал , а нужно было через пробел.

З.Ы. Можно было использовать и текстовые и типизированые файлы.