Hola Luisito2011.
El error te lo genera por que estas llamando a un método sin indicar el objeto al que está asociado.
Mirá los cambios en rojo:
Código Delphi
[-]
var
A,n1,n2,n3:cnumeronatural;
x :integer;
begin
n1:= CnumeroNatural.crear;
n2:= CnumeroNatural.crear;
n3:= CnumeroNatural.crear;
A := CNumeroNatural.Crear;
Write('Digite un numero N1:');
Readln(x);
n1.AsignarValor(x);
Write('Digite un numero N2:');
Readln(x);
n2.AsignarValor(X);
Write('Digite un numero N3:');
Readln(x);
N3.AsignarValor(X);
x:= A.Mayor(N1,N2);
A.Asignarvalor(x);
x:= A.Mayor(a,n3);
Write('El mayor es ');
if N1.ObtenerValor = x then writeln('N1')
else if N2.ObtenerValor = x then writeln('N2')
else writeln('N3');
readln;
end.
Un saludo.