Se o seu objetivo for verificar as idades de 0 até 99, não faz sentido você mandar ler a idade...
Ignorando este "leia (idade)", você precisa se lembrar que usando o enquanto, você terá que modificar a varíavel dentro dele, caso contrário, a valor primário que você havia escrito vai ser repitido para sempre.
O que eu entendi é verificar quantas pessoas tem em cada faixa escrita, pessoas com a idade de 1 até 99. Para isso, eu te dou a seguinte sugestão.
//
flag1<-0
flag2<-0
flag3<-0
flag4<-0
flag5<-0
qtdidade<-0
//Aqui, eu também vou colocar a idade sendo 0 para inicializar ela.
idade<-0
escreval("Digite as idades para as pessoas ou digite 0 para encerrar o programa")
enquanto (idade<0) ou (idade>99) faca
se idade>0 então
qtdidade<-qtdidade+1
fimse
se idade<13 então
flag1<-flag1+1
senao
se idade<25 então
flag2<-flag2+1
senao
se idade<50 então
flag3<-flag3+1
senao
se idade<70 então
flag4<-flag4+1
senao
flag5<-flag5+1
fimse
fimse
fimse
fimse
//E aqui, eu faço a idade ter 1 adcionado, fazendo com que cada repetição, ela incremente em 1 unidade.
idade<-idade+1
fimenquanto
escreval(qtdidade, flag1, flag2, flag3, flag4, flag5)
//
Espero que 4 anos de espera tenha o recompensado.