Нужен простой документ формата .unx с любым текстом внутри

assign(dos_file,q);
 reset(dos_file,1);
 assign(unix_file,w);
 rewrite(unix_file,1);
 repeat
  blockread(dos_file,buffer,SizeOf(buffer)-2,input_bytes);
  for i:=input_bytes downto 1 do
  begin
   if buffer[i]=CR then
   begin
    dec(input_bytes);
    move(buffer[i],buffer[i-1],input_bytes-i);
    buffer[i]:=LF;
   end;
  end;
  blockwrite(unix_file,buffer,input_bytes,output_bytes);
 until (input_bytes = 0) or (output_bytes<>input_bytes);
 close(unix_file);
 close(dos_file);

 assign(unix_file,w);
 reset(unix_file,1);
 assign(dos_file,'C:\RenPas\untext.txt');
 rewrite(dos_file,1);
 repeat
  blockread(unix_file,buffer,SizeOf(buffer)-2,input_bytes);
  for i:=input_bytes downto 1 do
  begin
   if buffer[i]=LF then
   begin
    inc(input_bytes);
    move(buffer[i],buffer[i+1],input_bytes-i);
    buffer[i]:=CR;
   end;
  end;
  blockwrite(dos_file,buffer,input_bytes,output_bytes);
 until (input_bytes = 0) or (output_bytes<>input_bytes);
 close(dos_file);
 close(unix_file);