Перевести на Си ++!

[Руслан92]

Народ кто сможет перевести эту программу на си ++, пожалуйста!Срочно надо...

uses Crt;

var
  f1,f2: text;
  i,x,n,m:integer;

procedure tof1;
begin
assign (f1,'number.txt');
rewrite (f1);
write ('n=');
readln(n);
for i:=1 to 10 do begin
  write ('x=');
  readln(x);
  write (f1,x,' ');
  end;
Close (f1);
end;

procedure tof2;
begin
assign (f1,'number.txt');
reset (f1);
assign (f2,'number2.txt');
rewrite (f2);
write ('m=');
readln(m);
while not eof(f1) do begin
  read(f1,x);
  if x mod m<>0 then write(f2,x,' ');
  end;
Close (f1);
Close (f2);
end;

begin
ClrScr;
tof1;
tof2;
end.

Программа называется:
Записать в файл file_A последовательного доступа N натуральных чисел.Получить в другом файле последовательного доступа все компоненты файла file_A, кроме тех, которые кратны m.Вывести полученный файл на печать

Ау......Помогите пожалуйста

[Nightwelf]

Помогу я тебе, но все же разберись с этим сам И задачу поставь конкретнее словами. Не хочется копаться в кривом паскале. Через минут 20, если все напишешь словами, то реализую)

А, ну я так глянул - там нефиг делать Сейчас доделаю что хотел и это напишу.

[Руслан92]

спасибо заранее

[Nightwelf]

вот что получилось http://d.pr/qejf