Ayuda con un ejercicio

[luisito2011]

hola.. soy yo de nuevo , bueno ahora estoy con un problema..
//aca el problema.. De 3 numeros ingresados por teclado..mostrar el mayor..
ejemplo.. si N1=25 , N2=26 , N3=27,(N1 son los numeros ingresados por teclado) lo q me tiene que mostrar es ''N3''
yo ya tengo el programa hecho .. pero no me corre , me sale error en la parte donde dice mayor de la console

//Esta es en la Unit//

Código Delphi [-]
 
unit caja1;
interface
  type
  CNumeroNatural = Class
  valor:integer;
  constructor crear;
  Function  ObtenerValor :integer;
  function mayor(a,b:cnumeronatural):integer;
  Procedure AsignarValor( NuevoValor : integer);
  End;
implementation
 Constructor CNumeroNatural.Crear;
Begin
     Valor := 0;
End;
    Function  CNumeroNatural.ObtenerValor : integer;
Begin
     Result := Valor;
End;
Procedure CNumeroNatural.AsignarValor( NuevoValor : integer);
Begin
     Valor := NuevoValor;
End;
  function cnumeronatural.mayor(a,b:cnumeronatural):integer;
var   m:integer;
  begin
    if a.obtenervalor > b.obtenervalor then
    m:=a.obtenervalor
    else
    m:=b.obtenervalor;
    mayor:=m;
   end;
end.




 
// Esta es en la Aplication. Console//

Código Delphi [-] 
var
  A,n1,n2,n3:cnumeronatural;
  x:integer;
  begin
  n1:=cnumeronatural.crear;
  n2:=cnumeronatural.crear;
  n3:=cnumeronatural.crear;
  Writeln('Digite un numero');
  readln(x);
  N1.AsignarValor(x);
  Writeln('Digite un numero');
  readln(x);
  N2.AsignarValor(X);
  Writeln('Digite un numero');
  readln(x);
  N3.AsignarValor(X);
  x:=mayor(N1,N2);
  a.asignarvalor(x);
  x:=Mayor(a,n3);
 if N1.ObtenerValor = x  then writeln('N1');
  if N2.ObtenerValor = x  then writeln('N2');
   if N3.ObtenerValor = x  then writeln('N3');
  readln;

Porfa ayuda... ya intente.. todo lo que pude.. hasta puse la function de mayor.. en la console... claro borrando despuej.. el de la unit.. aun asi no me corre.. bueno
graciaj.. y saludoj