В результирующий файл переписать содержимое текстового файла

uses crt;
var
t:text;
a:array[1..100]of string; t1,t2: string;
k,n,i:integer;
Begin
//writeln ('ââåäèòå ïóòü ê ôàéëó');
//readln (t1);
t1:='H:\t.txt';
assign(t,t1);
reset(t);
//writeln ('ââåäèòå äëèííó ñòðîê');
//readln(n);
n:=4;
k:=0;
while not eof(t) do
 begin
   inc(k);
    readln(t,a[k]);
  end;
close(t);
//writeln ('ââåäèòå ïóòü ê íîâîìó ôàéëó');
//readln (t2);
t2:='H:\t1.txt';
assign(t,t2);
rewrite(t);
 begin
  while length(a[i])>n do
   begin
    writeln(t,copy(a[i],1,n));
     delete(a[i],1,n);
   end;
     if length(a[i])>=0 then  writeln(t,a[i]);
    end;
   close (t);
  End.

uses crt;
var
t:text;
a:array[1..100]of string; t1,t2,g: string;
k,n,j:word;
i:integer;
Begin
//writeln ('ââåäèòå ïóòü ê ôàéëó');
//readln (t1);
t1:='H:\t.txt';
assign(t,t1);
reset(t);
//writeln ('ââåäèòå äëèííó ñòðîê');
//readln(n);
n:=4;
k:=0;
while not eof(t) do
  begin
    inc(k);
    readln(t,a[k]);
end;
close(t);
 
//writeln ('ââåäèòå ïóòü ê íîâîìó ôàéëó');
//readln (t2);
 
t2:='H:\t1.txt';
assign(t,t2);
rewrite(t);
 
for i:=1 to k do
begin
  while length(a[i])>0 do
    begin
       g:='';
      if length(a[i])<n then
        begin
          //g:=copy(a[i],1,length(a[i]));
          //g:=g+copy(a[i+1],1,n-length(a[i]));
          //delete(a[i+1],1,n-length(a[i]));
          //delete(a[i],1,length(a[i]));
          //writeln(t,g);
        end
      else
        begin
          g:=copy(a[i],1,n);
          delete(a[i],1,n);
          writeln(t,g);
        end;
    end;
end;
 
  close (t);
 
End.