Не работает программа

[looloo]

Ввести файл целых положительных чисел F1.Компоненты файла F1,меньше числа M,записать в файл F2.В файле F1 этим компонентам присвоить значение нуль.Выдать на печать файлы F1 и F2.

Подскажите ошибку,пожалуйста

Program laba;
Type TF=file of real;
Var f1,f2:TF;
a,m:real;
Procedure Vvod (Var f1:TF;name:char);
Var a:real;
begin
writeln ('Ввод файла ',name);
rewrite (f1);
writeln ('Ввести 1-й компонент или 999');
readln (a);
while a<>999 do
begin
write (f1,a);
writeln ('Ввести следущий элемент или 999');
readln (a);
end;
close (f1);
end;
Procedure Zapis (var f1:TF;f2:TF);
Var a,m:real;
Begin
write('Введите целое положительное число для поиска m=');
readln(m);
reset (f1);
rewrite(f2);
while not eof (f1) do
begin
read (f1,a);
if a<m then
write(f2,a);
end;
close(f1);
close(f2);
end;
Procedure Zamena (var f1:TF);
Var a,m:real;
Begin
reset (f1);
write('Введите целое положительное число для поиска m=');
readln(m);
while not eof (f1) do
begin
read (f1,a);
if a<m then
a:=0;
write (f1,a);
end;
close(f1);
end;
Procedure Vivod1 (f1:TF; Name:char);
Var a:real;
begin
reset (f1);
while not eof (f1) do
begin
read (f1,a);
write (a:6:2);
end;
close (f1);
end;
Procedure Vivod2 (f2:TF; Name:char);
Var a:real;
begin
reset (f2);
while not eof (f2) do
begin
read (f2,a);
write (a:6:2);
end;
close (f2);
end;
BEGIN
Assign (f1,'f1.dat');
Assign (f2,'f2.dat');
Vvod (f1,'f');
Zapis(f1,f2);
Zamena(f1);
Vivod1 (f1,'f');
Vivod2 (f2,'h');
End.