Tabuada apenas do 1 ao 10. Função If and Then, Função For

program tabuada;
 uses crt;
     Var
       x      :  integer;
       numero     :  integer;
begin
 writeln ('Digite o Numero Pra Tabuada ');
 readln(numero);

     if (numero < 11) and (numero > 0) then
       begin
                          for  x := 1  to 10 do
                 writeln(numero ,' x ', x, ' = ',(numero * x ));
        end
        else if (numero < 0) then
             begin
               writeln ('Numero Negativo ', numero);
               end

        else if (numero > 10) then
             begin
                writeln(' Numero Maior que 10 , Invalido ',numero);
                end;


readkey;
end.