Копирование текстового файла в бестиповый файл

procedure KOPY(var _f2:text; var _f3: file; var _str:string);
var i,k:integer;
begin
   assign (_f3,'kopyfile.txt');
   rewrite(_f3,sizeof(string)*8);
  {$I+}
  i:=0;
   while not eof(_f3) do begin
     inc(i);
     read(_f2,_str);
       if i=100 then begin
        blockwrite(_f3,_str,1);
        i:=0;
       end;
     end;
   if i<>0 then begin
     for k:=i+1 to 100 do _str[k]:=' ';
     blockwrite(_f3,_str,1);
    end;
    close(_f2);
    close(_f3);
    end;

uses crt;
type mas = array[1..100] of string;
var f1,f2:text;
 
a:mas;
str,name,name2:string;
i,n:integer;
 
 
procedure OpenFileInput(var _f1:  text;var _n:integer; var _a:mas);
var
    n:integer;
    _name:string;
begin
_n:=0;
WriteLn('Enter the file name: ');
ReadLn(_name);
assign(_f1,_name);
  {$I-}
Reset(_f1);
  {$I+}
if ioresult<>0 then
WriteLn('File not found')
else begin
WriteLn('Found file');
end;
while not eof(_f1) do
begin
_n:=_n+1;
readln(_f1,a[_n]);
end;
end;
 
procedure OpenFileOutput(var _f2: text);
var _name2:string;
begin
WriteLn('Enter the file name rezultat: ');
ReadLn(_name2);
assign(_f2,_name2);
    {$I-}
  rewrite(_f2);
    {$I+}
if ioresult<>0 then
WriteLn('File not found')
else begin
WriteLn('Found file');
Writeln('File zapisan');
end;
end;
 
 
procedure Cifra1(var _f1,_f2:text; var _str:string; var _n: integer);
{type cifr = set of '0'..'9'; }
var i:integer;
 
begin
 
     for i:= 1 to _n do
     begin
    _str:=a[i];
    if _str[1] in ['0'..'9'] then begin
      insert('(',_str,1);
      insert(')',_str,length(_str)+1);
    end;
   writeln(_f2,_str);
    end;
end;
begin
ClrScr;
OpenFileInput(f1,n,a);
openFileOutput(f2);
Cifra1(f1,f2,str,n);
close(f2);
close(f1);
   readln
end.

uses crt;
const name='in.txt'; name2='out.txt'; name3='copy9.txt';
type mas = array[1..100] of string;
var f1,f2:text;
    f3:file;
    f4:file;
a:mas;
 
str:string;
i,n:integer;
 
procedure OpenFileInput(const _name:string; var _f1:  text;var _n:integer; var _a:mas);
var
    n:integer;
 
begin
_n:=0;
WriteLn('Enter the file name: ');
{ReadLn(_name);      }
assign(_f1,_name);
  {$I-}
Reset(_f1);
  {$I+}
if ioresult<>0 then begin
WriteLn('File not found');
halt;
end
else begin
WriteLn('Found file');
end;
while not eof(_f1) do
begin
_n:=_n+1;
readln(_f1,a[_n]);
end;
end;
 
procedure OpenFileOutput(var _f2: text; const _name2: string);
 
begin
WriteLn('Enter the file name rezultat: ');
{ReadLn(_name2); }
assign(_f2,_name2);
    {$I-}
  rewrite(_f2);
    {$I+}
if ioresult<>0 then  begin
WriteLn('File not found');
halt;
end
else begin
WriteLn('Found file');
Writeln('File zapisan');
end;
end;
 
procedure Cifra1(var _f1,_f2:text; var _str:string; var _n: integer;var _a:mas);
var i:integer;
begin
     for i:= 1 to _n do
     begin
    _str:=a[i];
     if (Length(_str)>0) and (_str[1] in ['0'..'9']) then _str:='('+_str+')';
      a[i]:=_str;
    end;
  { writeln(_f2,a[i]);   }
 
end;
 
procedure Output(var _f2:text; var _n:integer; var _a:mas);
var i:integer;
begin
 for i:= 1 to _n do
     begin
  writeln(_f2,a[i]);
end;
end;
 
procedure CopyFile(const _name2, _name3: String; var _f3,_f4:file);
var
 
b: array [0..1023] of Char;
r: Word;
begin
 
Assign(_f4,_name2);
{$I-}
Reset(_f4,1);
{$I+}
if IOResult<>0 then begin
WriteLn('Error');
halt;
end;
Assign(_f3,_name3);
{$I-}
Rewrite(_f3,1);
{$I+}
if IOResult<>0 then begin
WriteLn('Error');
halt;
end;
while not EoF(_f4) do begin
BlockRead(_f4,b,SizeOf(b),r);
BlockWrite(_f3,b,r);
end;
Close(_f4);
Close(_f3);
 
end;
 begin
ClrScr;
OpenFileInput(name,f1,n,a);
openFileOutput(f2,name2);
Cifra1(f1,f2,str,n,a);
Output(f2,n,a);
CopyFile(name2,name3,f3,f4);
close(f2);
close(f1);
   readln
 
 
end.

close(f2);
close(f1);
CopyFile(name2,name3,f3,f4);