Gracias jabato por interesarte, la cuestion es que no acaba de funcionar del todo bien he probado con el programa que me dices y no se activa la salida como deberia, hay algo que nos estamos pasando por alto.He probado con alguna modificacion del programa y tampoco funciona bien.en estos momentos el programa lo tengo asi:
Gracias a los 2 por contestar.La verdad es que el programa ha mejorado mucho pero sigue sin funcionar.A veces se enciende 1 segundo a veces 30 funciona aleatoriamente sin sintedo alguno, y lo que no he conseguido que haga es encender y apagar con el mismo pulsador, osea el modo 3 (RA2)
Os dejo el programa tal y como lo tengo en estos momentos a ver si veis algo.
De nuevo gracias por interesaros.

program tresmodos

main:

TRISA = 255
TRISB = 0
PORTB = 0

while true

if TestBit(PORTA, 0) = 0 then
if Button(PORTA, 4, 100, 0) then
SetBit(PORTB, 0)
Delay_ms(1000)
ClearBit(PORTB, 0)
end if
end if

if TestBit(PORTA, 1) = 0 then
if Button(PORTA, 4, 100, 0) then
SetBit(PORTB, 0)
Delay_ms(30000)
ClearBit(PORTB, 0)
end if
end if

if TestBit(PORTA, 2) = 0 then
if Button(PORTA, 4, 100, 0) then
if TestBit(PORTB, 0) then
ClearBit(PORTB, 0)
else
SetBit(PORTB, 0)
end if
end if
end if

wend

end.

A ver si alguien puede ver el error.

Un saludo y gracias de nuevo jabato