Lógica no VisualG?!?!!

[Quake_M]

Estou usando o VisualG, (tentando na verdade)

Nos caminhos que conheço, estou fazendo 4 contas simples, gostaria que

cada processo fosse dividivo, ex: apos ler os "Tips!" o usuario teclasse "enter" a tela limpava e a proxima etapa viria.

No final ao teclar "Enter" ele limpasse a tela e repetisse novamente toda a execução, até tenho uma base mais ta dando errado.

de uma olhada e veja o que esta errado, fazendo favor.

var

salario, quantpessoas, sf1, pensao1, salarioliquido, rpc1:real

inicio

// Seção de Comandos

repita

escreval

escreval (".................................................................")

escreval

escreval ("HELLO, THIS SOFTWARE WILL SHOW FOR YOU SAME INFORMATIONS ABOUT YOUR SALARY!")

escreval

escreval (".................................................................")

escreval

escreva ("*Tips:")

escreval

escreva ("- First: Write on first field how much money that you win in your work.")

escreval

escreva ("- Second: After, write how many people have their family, to calculate the")

escreval

escreva (" income per person.")

escreval

escreva ("- Nota: After making the debts of the fixed values of ´family wage´ and")

escreval

escreva (" ´pension products´ it informs his net salary and show its per capita income.")

escreval

escreval

escreval (".................................................................")

escreval

escreva ("- Lets start our calculations.")

escreval

escreval

escreva ("1º: What is your salary?: R$ ")

leia (salario)

escreval

escreva ("2º: How many people have their family?: R$ ")

leia (quantpessoas)

limpatela

escreval

escreva (".................................................................")

escreval

escreval

escreval ("Salary: R$", salario)

escreval

escreva (".................................................................")

escreval

escreval

escreval ("- Results.")

escreval

sf1<-(salario/100)*2

pensao1<-salario/3

rpc1<-salario/quantpessoas

salarioliquido<-salario-pensao1-sf1

escreval ("Family Wage: R$", sf1)

escreval ("Pension Products: R$", pensao1)

escreval ("Income Per Person: R$", rpc1)

escreval

escreval ("Your Net Salary is: R$", salarioliquido)

escreval

escreval (".................................................................")

escreval

escreval ("PRESS ENTER TO RESTART THE SOFTWARE: ")

leia (enter)

limpatela

fimrepita

valeu....