Можно ещё дуркануть через WHILE, но он опасен: его можно легко загнать в бесконечный цикл.

Код:
udiI := 10;

WHILE (udiI > 0) DO
    ***
    ***   
    udiI := udiI -1;
END_WHILE