Program tebak angka

program tebekangka;
uses wincrt;
var x,t:integer;
    w:boolean;
begin
randomize;
x:=random(10);                                                                            
writeln('progaram tebakan angka');
w:=false;
while x<>t do
begin
writeln('angka tebakan anda');read(t);
if x < t then
begin
writeln('kurang kecil');
end
else if x > t then
begin
writeln('kurang besar');
end
else
begin
write('benar');
 w:=true;
end
end;
End.