Programa no visualG

Me ajudem pfv não encontro o erro neste programa q estou tentando realizar:

Enunciado
Zezinho trabalha como pescador. Toda vez que ele traz um peixe maior que o estabelecido pelo regulamento de pesca, (50 quilos), ele deve pagar uma multa de 4 reais por quilo excedido. Faça um programa que leia o peso de peixes e verifique se há excesso. Se houver, calcular o excesso e o valor da multa. Caso contrario mostrar uma mensagem falando que ele não deverá pagar nada. O programa só devera encerrar quando Zezinho digitar zero no peso de peixes.


Visualg

// Seção de Declarações
var
VarP,Excesso,Multa:numerico
inicio
// Seção de Comandos
Escreval("Programa para determinar se a excesso no peso do peixe")
Escreval("havendo excesso calcular a multa que deverá ser paga")
enquanto (VarP>O ou VarP<50) faca
Escreva("Digite o peso do peixe")
Leia (VarP)
fimenquanto
enquanto (VarP>50) faca
Escreva("Digite o peso do peixe")
Leia(VarP)
fimenquanto
se (VarP>0 ou VarP<50) entao
Escreval("Você não pagará multa")
entao
Excesso<-(VarP-50)
Escreval(" O peso do peixe excedeu:",Excesso,"")
Multa<-(Excesso*4)
Escreval("O valor da multa será de R$ :",Multa,"")
fimse
ate (VarP=0) repita
fimalgoritmo

Se o programa não tem nenhum erro queres que tipo de ajuda?
Uma outra forma de resolução será?

Cara tu cometeu alguns errinhos basicos nada que a pratica nao ajude
O maior deles foi o do repita
Vc nao pode colokar o repita depois do ate


OLHA COMO FIZ


algoritmo "Calcular Multa"
// Função :
// Autor : Ícaro Carvalho
// Data : 27/08/2014
// Seção de Declarações
var
peso: REAL
multa: REAL
excesso: REAL
inicio
// Seção de Comandos
ESCREVAL ("Bem Vindo!!!")
REPITA
ESCREVAL ("")
ESCREVA ("Insira o Peso do Peixe Pescado: ")
LEIA (peso)
excesso:= (peso - 50)
multa:= (excesso * 4)


SE peso > 50 ENTAO
ESCREVAL ("O peso do Peixe Excedeu em" , excesso, "Kg o Máximo Permitido.")
ESCREVAL ("A multa Será de R$" , multa, ".")
FIMSE
SE (peso <> 0) e (peso <= 50) ENTAO
ESCREVAL ("O peso do Peixe Não Excedeu o Máximo Permitido.")
ESCREVAL ("Sem Multa.")
FIMSE
ATE peso = 0
fimalgoritmo


TA TUDO CERTIM EU CORRIGI SE TIVER OTRA DUVIDA AEW MANDA