Algoritmia - Necesito resolver este algoritmo de los movimientos bancarios de un cajero

Algoritmo sin_titulo

	totalCargos = 0

	totalAbonos = 0

	cantPersonas = 0

	Repetir

		Imprimir "Tipo de movimiento [C]argo, [A]bono [*]Fin: "

		leer tipo

		si tipo != '*' Entonces

			cantPersonas = cantPersonas + 1

			Imprimir "Ingrese monto: "

			Leer  monto

			si tipo == 'C' Entonces

				totalCargos = totalCargos + monto

			FinSi

			si tipo == 'A' Entonces

				totalAbonos = totalAbonos + monto

			FinSi

		FinSi

	Hasta Que tipo == '*'

	Imprimir "Total cargos: ",totalCargos

	Imprimir "Total abonos: ",totalAbonos

	Imprimir "Cantidad de personas: ",cantPersonas

FinAlgoritmo