Чтение данных с одного txt файла, запись данных во второй txt в определенную позицию

unit my;
interface
type film=record
director:string;
prod:string;
cpmpozer:string;
oper:string;
kind:string;
end;
var gr:film;
type fal=TEXT;
type far= array[1..120] of film;
type fas=array[1..1120 ] of string;
var fp:fal;
var x:far;
var y:fas;
var s,str:string;
var m,j,n:integer;
var v:char;
var fp1,fp2,fp3:fal;
procedure rescue(fp:fal; x:far );
procedure open(var fp:fal; var y:fas);
procedure find(var m:integer; var fp, fp1:fal;  var s:string; var v:char);
implementation
procedure rescue(fp:fal; x:far );
var i:integer;
begin
rewrite(fp);
writeln('how many films');
readln(n);
for I:=1 to n do begin
with x[i] do begin
writeln('enter director name');
readln(director);
writeLN (fp,director);
end;
end;
close(fp);
writeln('резерв есть ');
end;
procedure open(var fp:fal; var y:fas); 
begin
reset(fp);
J:=1;
while not eof(fp) do begin
readln(fp,y[j]);
WRITELN('DIRECTORS');
writeln(y[j],' ');
writeln;
j:=j+1;
end;
close(fp);
end;
procedure find(var m:integer; var fp, fp1:fal;  var s:string; var v:char);
var i:integer;
begin
writeln('введите номер строки с которой начмнается ввод данных');
read(m);
reset(fp1);
for I:=1 to m do
readln(fp1,s);
writeln(s);
close(fp1);
end;
end.

program prog;
uses my;
begin
assign(fp, 'f:\files\cost\turbo\RESERV.TXT');
assign(fp1, 'f:\files\cost\turbo\copy.txt'); 
rescue(fp, x );
open( fp,y);
find( m, fp, fp1,s,v);
end.