preciso faser um loop, onde coloco o codigo?

alguem pode me ajudar nesse codigo... como eu aplico ele?
[url]http://www.rykotamandare.com.br/micheletti/pascal.htm[/url]