типизированные файлы

[amidatong]

Прошу опять помощи, задача вро де бы легкая, а вот с файлами у меня косяк
Задача
СОздать файл, состоящий из 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;

seek (f, filesize (f)-1 );
read (f,m);
seek(f,0);

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

while not eof (f) do
begin
read(f,m);
IF M mod 2=0 then begin M:=0;
writeln(M,'  ');

close(f);



end;
end;
end.

Помогите пожалуйста с файлами вообще опа....

[amidatong]

прошу помощи)

[RomiKon]

while not eof (f) do
begin
read(f,m);
  IF M mod 2=0 then M:=0;
  Seek(f, FilePos(f)-1);
  write(f, M);
end;

Вот тебе цикл замены чётных значений в файле на нули, остальное вроде правильно