помогите пожалуйста!! на паскале програмировать начал недавно. Пробовал писать графические игры-но ничего не получилось!

uses crt;
var a,d,g:integer;
begin
clrscr;
a:=1;
d:=2;
g:=3;
while g=a+d do
begin
randomize;
a:=random(10);
d:=random(10);
write(a,'+',d);
readln(g);
end;
end.
uses crt;
var a,d,g,ff:integer;
begin
clrscr;
writeln('до какого числа можно мне выдавать числа?');
readln(ff);
a:=1;
d:=2;
g:=3;
while g=a+d do
begin
randomize;
a:=random(ff);
d:=random(ff);
write(a,'+',d);
readln(g);
end;
end.