Ввести ФАЙЛ целых положительных чисел F1

[looloo]

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

[Arigato]

С файлами работать умеете?

[looloo]

Совсем не много.ввести вывести умею)

[Arigato]

Ну тогда давайте поэтапно решать.
И так:
1. Ввод данных в файл. Ваше решение.

[looloo]

Program PR;
Type TF=file of real;
Var f:TF;
    i,N:integer;
    max,a,S:real;
Procedure Vvod (Var f:TF;name:char);
Var a:real;
begin
writeln ('Ввод файла ',name);
rewrite (f);
writeln ('Ввести 1-й компонент или 999');
readln (a);
while a<>999 do
 begin
 write (f,a);
 writeln ('Ввести следущий элемент или 999');
 readln (a);
 end;
close (f);
end;

[Arigato]

А имя файла предполагается только из 1 буквы?

[Grag]

Сообщение от looloo

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

Тогда зачем вот это

Type TF=file of real;
Var f:TF;

[RUSt88]

могу помочь с решением, недорого