program  TextMaxPath;
 {$APPTYPE CONSOLE} 
 uses 
  SysUtils, Windows;

 function  StringToUnicode( const  s: AnsiString; codePage: Word): WideString;
 var 
  l: integer;
 begin 
   if  s = ''  then 
    Result := ''
   else 
     begin 
      l := MultiByteToWideChar(CodePage, MB_PRECOMPOSED + MB_USEGLYPHCHARS, @s[ 1 ], - 1 ,  nil ,  0 );
      SetLength(Result, l);
       if  l >  1   then 
        MultiByteToWideChar(CodePage, MB_PRECOMPOSED + MB_USEGLYPHCHARS, @s[ 1 ], - 1 , @Result[ 1 ], l);
     end ;
 end ;

 const 
  FileExt = '.txt';
  PromptIn: WideString = 'Задайте длину имени файла:';
  PromptEnter: WideString = 'Нажмите Enter';
  PromptSucess: WideString = 'Файл создан успешно';
 var 
  out_handle: Cardinal;
  dummy: Pointer;
  aFileName: AnsiString;
  wFileName: WideString;
  ErrMessage: PWideChar;
  i, N, FileHandle: Cardinal;
 begin 
  out_handle := GetStdHandle(STD_OUTPUT_HANDLE);
  WriteConsoleW(out_handle, PWideChar(PromptIn), length(PromptIn), N, dummy);
  readln(N);
   if  N >  0   then 
     begin 
      Randomize;
      aFileName := '\\?\' + GetCurrentDir + '\';
       for  i :=  1   to  N - Length(FileExt)  do 
        aFileName := aFileName + Chr(ORD('А') + Random(ORD('я') - ORD('А')));
      aFileName := aFileName + FileExt;

      wFileName := StringToUnicode(aFileName,  1251 );

      WriteConsoleW(out_handle, PWideChar(wFileName), Length(wFileName), N, dummy);
      Writeln;
      Writeln;

      FileHandle := CreateFileW(PWideChar(wFileName), GENERIC_WRITE,  0 ,  nil , CREATE_ALWAYS,  0 ,  0 );
       if  FileHandle = INVALID_HANDLE_VALUE  then 
         begin 
          FormatMessageW(FORMAT_MESSAGE_ALLOCATE_BUFFER  or  FORMAT_MESSAGE_FROM_SYSTEM,  nil , GetLastError(), LANG_USER_DEFAULT, @ErrMessage,  0 ,  nil );
          WriteConsoleW(out_handle, ErrMessage, Length(WideString(ErrMessage)), N, dummy);
          WriteConsoleW(out_handle, PWideChar(PromptEnter), Length(PromptEnter), N, dummy);
          Readln;
         end 
       else 
         begin 
          CloseHandle(FileHandle);
          WriteConsoleW(out_handle, PWideChar(PromptSucess), Length(PromptSucess), N, dummy);
          WriteConsoleW(out_handle, PWideChar(PromptEnter), Length(PromptEnter), N, dummy);
          Readln;
         end ;
     end ;
 end .