program Project1;

{$AppType CONSOLE}

uses
  SysUtils;

var
  name : string;

begin
  // Консольное приложение имеет консоль Input и Output
  // назначенные и открытые от нашего имени.
  WriteLn(Output, 'Пожалуйста, введите своё имя');
  ReadLn(Input, name);

  // И мы даже не должны указывать имена этих файлов
  WriteLn('Ваше имя '+name);
  WriteLn('');
  WriteLn('Нажмите enter для выхода');
  ReadLn(name);
end.