Sacando numero par o impar pascal

Siguiendo el mismo ejercicio en diversos idiomas ahora lo mostrare en pascal:

Program P3AE4 (input,output);

uses

 crt; 

Var

 numero: Integer;

Begin

     writeln('Ingrese el valor del numero:');

  readln(numero);            

  if (numero mod 2 = 0) Then

      begin

                writeln('El numero introducido es par'); end;

        if (numero mod 2 <> 0 ) Then

             begin

       writeln('El numero introducido es impar:'); end;



  readkey;

end.

 Turbo Pascal