Não é bem respondendo sua dúvida mais sim um sugestão pra deixar seu código mais limpo, criei uma classe para paginação de dados. De uma olhada nesse link: Class - dPagination 2.1
algoritmo "calcular"
// Função : Calcular
// Autor : David Leite Guilherme
// Data : 09/08/2010
var
X, Y: REAL
inicio
escreva("Numero X:")
leia(X)
escreva("Numero Y:")
leia(Y)
escreval("Soma entre X e Y:",X + Y)
escreval("Subtração entre X e Y:",X - Y)
escreval("Multiplicação entre X e Y:",X * Y)
escreval("Divisão entre X e Y:",X / Y)
fimalgoritmo