Exemplo While Jogo de Numero Função Random()

program ExemploWhile;
var
  numero   : integer;
  contador : integer;
  alvo     : integer;
  jogar    : char;

begin
     jogar := 'S';
     randomize();
     while(jogar = 'S')do

     begin
     contador :=0;
     alvo := random(10);
     while(numero <> alvo) do

     begin
     write('Digite um Numero: ');
     readln(numero);
     contador := contador + 1;
     end;
     writeln(' Voce acertou em ' , contador , ' tentativas');
     write(' Quer jogar Novamente (S/N): ');
     readln(jogar);
     jogar := upcase(jogar);
     end;

end.