a proc ne rovnou

Kód:
var a,c:integer;
begin
if paramacount>0 then begin
val(paramstr(1),a,c);
if c=0 then delay(a*1000);
end;
end.
a pak volat jako delay x, kde x je pocet minut ? (delay ma parametr v ms)