Копирование строки файла Опции

[off]

Дан текстовый файл. В нем кроме обычных символов встречается команда \ins NN xx...xxx, где NN-двузначное число, xx...xxx - строка. Команда должна вставлять строку xx...xxx в данное место (нумерация строк с единицы). Запись результат во второй файл.
Не понимаю как копировать строку во второй файл
Вот,что написал я:

uses crt;
var f1,f2:text; i,n:integer; str:string;
begin clrscr;
 Assign(f1,'1.txt'); Reset(f1);
 Assign(f2,'2.txt'); Rewrite(f2);
 n:=0;
 While not EOF(f1) do begin
       readln(f1,str); i:=0;
       While (i<>Length(str)) do begin
             inc(i);
             if (str[i]='\') and (i+6<=Length(str)) then begin
                if (copy(str,i+1,4)='ins ')and(str[i+5] in ['0'..'9'])and
                   (str[i+6] in ['0'..'9']) then begin
                   i:=i+6; inc(n); write(f2,n);
                end;
             end else write(f2,str[i]);
       end;
  writeln(f2);
 end;
 close(f1); close(f2);
 readkey;
end.

Помогите))В общем нужно взять строку после \ins NN и копировать её во второй файл в NN-ную строку

[off]

Не понял что то я...
В общем текстовый файл:

Код

sdkfhasdk \ins 11 sdjfndjscb ds
yyrt \ins 13 dfbfwsbweew sdkljcnds tr
de \ins 2 fgre

то,что после \ins 11,нужно копировать во второй файл в 11 строку;
то,что после \ns 13,копировать во второй файл в 13 строку и т.д.
то,что после \ns 2 вообще не нужно ,т.к. рассматриваются только двузначные числа...
не знаю как ещё объяснить))

Сообщение отредактировано: off - 21.04.2008 9:12