Угадывание числа. Помогите.

program kkk;
uses crt;
var comp,player:integer;
 
begin
 clrscr;
 randomize;
 comp:=random(11);
 write('Компьютер загадал число от 0 до 10. Введите ваше число: ');
 readln(player);
 while comp<>player do
 begin
  write('Не то число! Введите новое число: ');
  readln(player);
 end;
 writeln('Вы угадали!');
 readln;
end.

k:=0
repeat
........
until (comp=player) or k=3;

uses crt;
var comp,player:integer;
 
begin
 clrscr;
 randomize;
 comp:=random(11);
 write('Компьютер загадал число от 0 до 10. Введите ваше число: ');
 readln(player);
 while comp<>player do
 begin
  if comp<player then write('Число меньше вашего! Введите новое число: ') else write('Число больше вашего!  Введите новое число: ');
  readln(player);
 end;
 writeln('Вы угадали!');
 readln;
end.

Program ugaday;
Uses crt;
Var  a,number,bonus:integer;
Begin
Clrscr;
 bonus:=10;
 Randomize; number:=random(10)+1;        textcolor(4);
 gotoxy(20,1);
 Writeln('Угадайте задуманное число от 1 до 10!');   writeln;  textcolor(14);
 Write('Делай попытку    '); readln(a);    writeln;
 while a <> number do
  begin
   Dec(bonus);
   writeln('Неугадал!');
   if (a > 10) or  (a < 1) then writeln('Число введено неверно!');
   if a > number then writeln('Нужное число меньше')
   else writeln('Загаданое число больше');
   write('Попробуй ещё раз    '); readln(a); writeln;
   end;  textcolor(2);
  Writeln('Угадал!!! ',  'вы заработали ' ,bonus, ' баллов ');
  Readln;
 End.