Файлы.

[танкек]

Создать файл из 10чисел. Помогите сейчас пожалуйста сейчас контрольная

program z1;
var
f:file of integer;
I:integer;
M:integer;
begin
assign(f,'file.dat');
rewrite(f);
for I:=1 to 10 do
begin
readln(M);

reset (f);
write (f,m);
end;

нужно продолжение, найти сумму и количество чисел кратных 5.