A Universidade de Uberaba tem um programa que se chama Tradutor de Algoritmos.
Você digita em portugol e ele passa para pascal e traduz o algoritmo podendo até executa-lo.
Se você quizer posso te enviar esse programa para solucionar o seu problema agora.

ftp://ftp.edu.uniube.br/alunos/

Acesse a pasta do professor Andre Luís Silva de Paula
Depois acesse a pasta Tradutor de Algoritmos