Counterstrike 1.6 activation macro

I made this real quick, so it doesnt follow the formula, but i got one that does follow the formula every like..... 600 tries lol. feedback? if you want to try it you have to have the "product activation" window at the part where you eneter the serial and it has to be in the upper left hand corner of your screen. This doesnt work so its not against the rules right? anyway..... this is just an example of how you could make an activation macro if you had the fomula.

Code:

program New;
var
x:integer;
 Number4, number42: array[1..4] of Integer;
  Number5: array[1..5] of Integer;
  serial,Numbers4,numbers5,numbers42: string;
  c,y,z: Integer;

procedure report;
begin
cleardebug
writeln('===============================')
writeln('')
writeln(' Number of keys tried: '+inttostr(x))
writeln('')
writeln('===============================')
end;

procedure declare4;
begin
  ClearDebug;
  Number4[1]:= Random(10);
  Number4[2]:= Random(10);
  Number4[3]:= Random(10);
  Number4[4]:= Random(10);
  for c:= 1 to 4 do
    Numbers4:= Numbers4 + IntToStr(Number4[c]);
end;

procedure declare42;
begin
  ClearDebug;
  Number42[1]:= Random(10);
  Number42[2]:= Random(10);
  Number42[3]:= Random(10);
  Number42[4]:= Random(10);
  for z:= 1 to 4 do
    Numbers42:= Numbers42 + IntToStr(Number42[z]);
end;

procedure declare5;
begin
 ClearDebug;
  Number5[1]:= Random(10);
  Number5[2]:= Random(10);
  Number5[3]:= Random(10);
  Number5[4]:= Random(10);
  Number5[5]:= Random(10);
  for y:= 1 to 5 do
    Numbers5:= Numbers5 + IntToStr(Number5[y]);
end;

Procedure getkey;
begin
declare4
declare5
declare42
serial:= (numbers4+'-'+numbers5+'-'+numbers42);
end;

procedure deletecode;
begin
holdmouse(325, 190,true)
wait(500)
movemousesmooth(35, 189)
wait(500)
clickmouse(35, 189,false)
wait(500)
clickmouse(50,202,true)
end;

procedure getnewcode;
begin
getkey;
end;

procedure entercode;
begin
wait(1000)
clickmouse(42,187,true)
clickmouse(60,237,true)
sendkeysvb(serial,true)
clickmouse(273,415,true)

wait(30000)

cleardebug
if getcolor(298, 213)=11513775 then
 begin
 cleardebug
 writeln('Found a working key!')
 writeln('Number of tries: '+inttostr(x))
 terminatescript;
 end;
if getcolor(298, 213)<>11513775 then
 begin
 clickmouse(188,415,true)
 end;

end;

begin
cleardebug
repeat
deletecode
getnewcode
entercode
x:=x+1
report
until(false)
end.