Составьте программки "Угадай число от 1 до 10"И придумайте похожую задачку, только

Числа загадываются от 1 до 10; с выходом и что делать вроде все понятно и так будет
uses crt;
var a,p,n,t:integer;
begin
clrscr;
p:=0;
repeat
a:=random(10);
 repeat 
 readln(n); 
 p:=p+1;
 if n=a then begin writeln('Вы угадали с ',p,' раза!'); p:=0; writeln('Поробуйте опять!'); readln; clrscr; end   
 else if nlt;a then writeln('Число введенное вами меньше загаданного,попробуйте снова')   
  else if ngt;a then writeln('Число введенное вами больше загаданного, попробуйте опять'); 
 until n=a;
writeln('Если желайте выйти введите "-1" ');
 readln(t);
  until t=-1;
 readln;
 end.