Дублирование(файл)

[ТРОЯН=)]

Всем привет!)Ктонить скажите плиз как продублировать числа в файле притом только если они попадают диопозон (5..10) например!))

[Stilet]

Переписать во временный файл ( с дубляжем) А потом временный переименовать в целевой.

[ТРОЯН=)]

Ого,эт как вообще??

[Stilet]

Скажи мне как ты читаеш из файла и я скажу тебе как их послать )

[ТРОЯН=)]

program file4;
 var
 datfile:text;
 cline,cchar:integer;
 NF:string;
 strok:string;
   begin
   writeln('File');
   readln(NF);
   assign(datfile,NF);
   reset(datfile);

Ну а потом:

 begin
      readln(datfile,strok);

Ну вот и всё собственно))

[Stilet]

ок
"УбедЫл"

rogram file4;
 var
 aga,datfile:text;
 cline,cchar:integer;
 NF:string;
 strok:string;
   begin
   writeln('File');   readln(NF);
   assign(datfile,NF);   reset(datfile);
   assign(aga,'ff');   rewrite(aga);
while not eof(datfile) do begin
 readln(datfile,cline);
 if cline in [5..10] then writeln(aga,cline);
 writeln(aga,cline);
end;
close(aga);Close(datfile);
Rename(aga,nf)
end;