RosettaCodeData/Task/Program-name/Delphi/program-name.pas

program ProgramName;

{$APPTYPE CONSOLE}

begin
  Writeln('Program name: ' + ParamStr(0));
  Writeln('Command line: ' + CmdLine);
end.