Файлы(Пасккаль)

[ТРОЯН=)]

PRogram File27;

uses crt;
 var
 f,f1,f2:text;
 ch,line,n,i:integer;
 fn:string;
 strok:string;
 m:array [5..10] of integer;
 {$I-}


procedure P1;
begin
 assign(f,fn);
 reset(f);
 assign(f1,'ff');
 rewrite(f1);
 while not eof(f) do
  begin
  read(f,line);
  write(f1,line);
  end;
  close(f);
 end;

procedure P2;
begin
 assign(f,fn);
 reset(f);
 assign(f2,'fff');
 rewrite(f2);
 for i:= 5 to 10 do  begin
  read(f,m[i]);
  if m[i] in [5..10] then   begin

  writeln(f2,m[i]);
 end;
 end;

{$I+}
begin
writeln('file');
readln(fn);
fn:=fn+'.txt';
P1;
P2;
close(f1);
close(f);
erase(f);
rename(f1,fn);
end.

А сдесь помочь можно???Дублирование чисел,надо сделать в одном файле.Написал но работет не так или вообще неработает((

[Sazary]

Сообщение от ТРОЯН=)

Дублирование чисел,надо сделать в одном файле.

А по-подробнее? Что сделать-то нужно?
Предоставляйте максимально полную информацию по заданию.

[ТРОЯН=)]

Вот конкретно задание:дан файл целых чисел.Продублировать в нём все числа ,принадлежащие диапозону от 5..10!
Мой код:
1 процедура- просто копирует все числа в другой файл
2 процедура - уже копирут числа в диапозоне от 5..10
но выполняется только или 1 или 2 процедура-вместе никак(((

[Sazary]

ТРОЯН=), что-то вы там намудрили..

PRogram File27;

uses crt;
 var
 f,f1:text;
 n:integer;
 fn : string;

begin
writeln('file');
readln(fn);
assign(f,fn);
{$I-}
reset(f);
{$I+}
if IOResult<>0 then exit;

assign(f1,'temp_file');
rewrite(f1);

while not eof(f) do
 begin
 read(f,n);
 write(f1,n,' ');
 if n in [5..10] then write(f1,n,' ');
 end;

close(f1);
close(f);
erase(f);
rename(f1,fn);
end.

[ТРОЯН=)]

Блин вообще класс))))А вы это всё с ходу делаете??Опыт большой?)))))
Спасибо большое))))

[Sazary]

ТРОЯН=), когда нарешаете несколько сотен подобных задач, то тоже с ходу будете делать )