Membuat game menggunakan delphi

Ini dicoba untuk meningkatkan minat pada program, semoga membantu. Dimulai dengan program sederhana dulu : Var jawab, tanya,langkah : integer; begin     langkah:=0;     jawab:=random(100)+1;     repeat         write('Coba tebak angka dari 1 sampai 100 : ');readln(tanya);         if(tanya>jawab)then           writeln('Angka terlalu besar')         else           writeln('Angka terlalu kecil');         langkah:=langkah+1;     until jawab=tanya;     writeln('Selamat! Anda menjawab dalam ',langkah,' langkah');     readln; end. Dicoba dulu dari program yang sederhana. Standarnya sih katanya orang-orang bisa menjawab dalam 5 / 4 langkah.