Можно ли вставить строку на редактирование в консоль?

var
  s: string;
 
begin
  readln(s);
end.

var
  x, y: integer;
 
procedure SetPos(nx, ny: integer);
begin
  x := nx;
  y := ny;
  System.Console.SetCursorPosition(x, y);
end;
 
begin
  
  System.Threading.Thread.Create(()->//запуск нового потока, потому что в нём будет бесконечный цикл, а нам надо что то ещё выполнять паралельно. В данном случае выписывать текст
  while true do
    try
      
      var key := System.Console.ReadKey(true);
      case key.Key of
        System.ConsoleKey.LeftArrow:  SetPos(x - 1, y);
        System.ConsoleKey.RightArrow: SetPos(x + 1, y);
        System.ConsoleKey.UpArrow:    SetPos(x, y - 1);
        System.ConsoleKey.DownArrow:  SetPos(x, y + 1);
        
        System.ConsoleKey.Backspace:
        begin
          SetPos(x-1,y);
          //ToDo Стереть 1 символ
        end;
        
        else write(key.KeyChar);
        
      end;
    
    except
      on e: Exception do
        ReadlnString(_ObjectToString(e));//Все ошибки надо выписывать, потому что если не словить - будет просто вылет непонятно изза чего
    end).Start;
  
  Sleep(1000);
  writeln('test');
  x := System.Console.CursorLeft;
  y := System.Console.CursorTop;
  
end.