[Problema] Meu Codigo

[Segredo]

Bem queria pedir uma ajudinha para quem aí sacar de pascal porque to fazendo trabalho da faculdade código roda Blz mais entra num loop infernal que não consigo achar o erro se alguém puder me ajudar serei bem grato


Por favor, peço que não poste o código Digamos meu professor e um cara bem experto não tolera ajuda de fora mais ele mesmo não se disponibiliza para ajudar =( queria ajudinha de VCS

Lembre-se to 2 período ainda mau sai do Portugol ainda hauihauah espero que possa me ajudar =)

Tirei o arquivo porque Problema foi resolvido Obrigado
Imperyus Games