Угадайка в Паскале. Помните сделать через While

var
n, i, x, t, y: Integer;
begin
  begin 
n :=Random(0)+1;
       x :=Random(10) + 1;
      end;
      
  WriteLn(' Компьютер загадует  число от 1 до 10, ваша задача    угодать это число у вас 3 попытки, введите это число ');
ReadLn(i);
      if (i>x) 
      then
      WriteLn('меньше');
      if (i<x)
      then
      WriteLn('больше');
     if (i=x)
      then 
      WriteLn('вы победили')
                  else 
      
      
WriteLn('у вас 2 попытка');
ReadLn(t);
       if (t>x) 
       then
     WriteLn('меньше');
      if (t<x) 
      then
      WriteLn('больше');
     if  (t=x)
     then
     WriteLn('вы победили')
     
     else
      
      WriteLn('у вас 1 попытка');
ReadLn(y);
 if (y>x) 
 then
      WriteLn('меньше');
      if (y<x) 
      then
      WriteLn('больше');
       if (y=x)
     then
     WriteLn('вы побелили')
      else 
       WriteLn('вы проиграли, правильным был ответ=>',x)
       
             
 
end.

var n,i,x:integer;
begin
randomize;
writeln('Компьютер загадывает  число от 1 до 10');
writeln('Ваша задача  угадать это число. У вас 3 попытки, введите это число ');
n:=1+random(10);
i:=0;
x:=0;
while (i<3)and(x<>n) do
 begin
  inc(i);
  write('Попытка ',i,' Ваше число=');
  readLn(x);
  if x>n then writeln('меньше')
  else if x<n then writeln('больше')
  else writeln('вы победили');
 end;
if x<>n then
writeln('вы проиграли, правильным был ответ=>',n)
end.