program Led_blinking;

begin
TRISB := 0; // configure pins of portb as output
repeat // beginning of a repeat loop
begin
PORTB := $FF; // turn ON diodes on portb
delay_ms(1000); // wait for 1 second
PORTB := 0; // turn OFF diodes on portb
delay_ms(1000); // wait for 1 second
end;
until 0 = 1; // endless loop (as this condition is never satisfied)
end.

така би трябвало на всичките RB0 - RB7 да дават on i off
а как трябва да стане само за определен пин например RB2 ?

Трябва да имаш битови операции, на С може и да стане с AND и OR, примерно &FE за 0 и ||01 за единица, погледни си хелпа за битовите, не помня на паскала как беше синтаксиса за тия операции по горе.

Има два начина (до колкото съм запознат с продуктите на MikroE - разглеждал съм по-подробно MikroC):
1. PORTB.FX:=1; PORTB.FX:=0; //X е от 0 до 7 - номера на бита
2. Предварително дефинираш интересуващия те бит с някакъв етикет
#define my_bit PORTB.FX
my_bit:=0; my_bit:=1;
(3. Винаги е възможно да използваш и маска, както те съветва @ТоНи.)
Разбира се и двата начина са добре описани в страхотно подробния хелп на компилатора. Не е лошо човек да попрочитва от време на време малко, понякога помага!

мерси за помощта и вниманието разбрах как става всичко е като в доброто старо вереме самоче 3 пъти по интересно

c82
При PicBasicPro
за управление на определен порт би трябвало да е така:
program Led blinking

TRISB=0 'портовете B са ти изходи

PORTB=0 'зануляваме порт B

Begin:

PORTB=1 'светни всички диоди на PORTB
pause 1000 'изчакай 1 секунда
PORTB=0 'изгаси всички диоди на порт B
pause 1000 'изчакай отново 1 секунда
HIGH PORTB.0 'направи PORTB.0 с високо ниво или 'PORTB.0=1

GOTO Begin

END

мисля че така ще стане

techboy мерси за вниманието и помощта прочетох доста за микропаскала сега имам други въпроси които се опитвам да разреша по един или друг начин