谁能让这个程序可以传参数？？急急!!(源码见内)

[microrain]

下面是一个在dos下可以执行的程序。
现在希望能在dos下用 aa.exe 参数1,参数2
程序内得到参数后再做相应的动作，比如再一次输出参数



program aa;

{$APPTYPE CONSOLE} //这是一个编译器指令，告诉编译器这个程序是一个控制台程序

uses SysUtils;
var
str:string;

begin
ParamStr()
readln(str);
writeln('按回车退出程序');
readln;
end.

[kevin_gao]

For i:=1 to ParamCount do writeln(paramStr(i));