Ayuda con un ejercicio

[ecfisa]

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.