SCAR Code:
program GoogleWars;
var
Page: string;
R, S: array [0..1] of string;
i, t1, t2: Integer;
begin
ClearDebug;
try
for i:= 0 to 1 do
S[i]:= Readln('Word #' + IntToStr(i + 1) + '?');
for i:= 0 to 1 do
begin
Page:= GetPage('http://www.google.com/search?hl=en&q=' + S[i] +'&btnG=Google+Search');
R[i]:= Between('about <b>', '</b> for', Page);
end;
Writeln('/-------------------------------------------------------\');
for i:= 0 to 1 do
Writeln('| -> ' + S[i] + ': ' + R[i]);
Writeln('|');
t1:= StrToInt(Replace(R[0], ',', ''));
t2:= StrToInt(Replace(R[1], ',', ''));
if(t1 > t2)then
Writeln('| ' + S[0] + ' is the winner with ' + R[0] + ' results.')
else
Writeln('| ' + S[1] + ' is the winner with ' + R[1] + ' results.');
Writeln('\-------------------------------------------------------/');
except
Writeln('SCRIPT ERROR: Please rerun.');
end;
Writeln('');
end.
'nuff said.