Pseudocódigo/Diagramas de Flujo - Ayuda Pseudocódigo LPP

Hola, la verdad que estas cosas que suelo aprenderlas por mi propia cuenta pero esta vez se me fue de las manos..

Se que LPP es un granito de arena en el universo de la programación, pero tengo muchas complicaciones con arreglos

El arreglo es el siguiente


Escriba "El numero que en una jugada obtuvo mas ganadores es: ",ngg," sorteado en la quiniela",cg
Fin

Necesito que me diga cual es el numero que obtuvo mas ganadores y en que quiniela se sorteó. Creia que estaba bien hecho pero me salta un error de incompatibilidad en cs <- c[i]

Alguien me puede dar una mano por favor? Gracias! Saludos

Para empezar: No queda claro que variable es cs, en programa suministrado no hay ninguna variable que se llame cs.
La línea más parecida que citas que marca error es cg <- c[i].

Segundo: Está mal declarada la cadena c. Aunque la lógica esté bien (una cadena es un arreglo), no se declara así. Sería así: cadena[10] c

Tercero: La asignación es impropia, porque intentas cargar una cadena a una variable (cg) que está definida como entera, lo cual carece de lógica. cg desde de ser declarado como arreglo de 10 para seguir la lógica y no provocar errores de no coincidencia de tipos. Siguiendo la lógica del programa debe de ser declarada con el mismo tipo que ci (arreglo [10]). Quedaría así arreglo [10] cg

Por último: Faltan subíndices para el arreglo cg, quedaría así: cg[i]

Programa completo:

cadena [10] c
Arreglo [10] de entero ng
Arreglo [10] de entero cap
cadena [10] cg
Entero i,ngg,capm
Inicio
capm <- 0
Para i <- 1 hasta 10 haga
Escriba "Ingrese de que quiniela se trata: "
lea c
Escriba "Ingrese el numero ganador: "
lea ng[i]
Escriba "Ingrese cantidad de ganadores: "
lea cap[i]
llamar nueva_linea

Si (cap[i]>capm) entonces
capm <- cap[i]
cg[i] <- c[i]
ngg <- ng[i]
fin si
fin para

Escriba "El numero que en una jugada obtuvo mas ganadores es: ",ngg," sorteado en la quiniela",cg
Fin