PROCEDIMIENTO CargarDatos(Por Ref. LosEquipos[16]:CADENA; Por Ref. LosGrupos[16]:CARACTER)
VAR I:ENTERO
//Uso de estructura repetitiva para posicionarse en cada campo de la variable dimensionada VARIAR I DESDE 1 HASTA 16
//Ingreso el nombre de cada equipo
REPETIR
 ESCRIBIR(“Ingrese nombre del equipo nro.“, I)

LEER(LosEquipos[I])
REPETIR
ESCRIBIR(“Ingrese el grupo asignado”)
SI (losgrupos = A [o] losgrupos = B [o] losgrupos = C [o] losgrupos = D) ENTONCES
LEER (LosGrupos[I])
SINO
ESCRIBIR(“Ingrese un valor valido”)
FIN SI
HASTA QUE( losgrupos[i]<16)
 HASTA QUE (LosEquipos[I]<>” “)
 FINVARIAR FINPROCEDIMIENTO