1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
program arguments;

{$APPTYPE CONSOLE}

var
  i: Integer;
begin
  for i := 1 to ParamCount do
  begin
    Write(ParamStr(i) + ' ');
  end;
  // => a b c d
end.