PASCAL.ABC Сделать лучше "Угадалку":Пусть программа не говорит жарко, холодно и т.д. Пусть

PASCAL.ABC
Сделать лучше "Угадалку":
Пусть программка не говорит жарко, холодно и т.д. Пусть она разговаривает "Правее" либо "Левее".
Вот угадалка:
program quess;
var a,b:integer;
begin
a:=random(101);
write('b=');
readln(b);
while (alt;gt;b) do
begin
writeln('Ne pravilno');
if(абс(a-b)lt;10) then
writeln('gorucho');
if(абс(a-b)lt;25) and (abs(a-b)gt;=10) then
writeln('teplo');
if(абс(a-b)gt;=25) then
writeln('holodno');
write('b=');
readln(b);
end;
writeln('ygadal');
end.