Estou tendo dificuldade com a seguinte questão:
Crie uma matriz M[21,10]. Faça a leitura de 10 nomes (com no máximo 20 caracteres) e armazene na primeira linha da matriz. Após a leitura, decomponha os nomes letra por letra e as armazene nas demais linhas da matriz a partir da segunda. Ao final, escreva a matriz.
O meu código ficou da seguinte maneira:
algoritmo "Exercício 4"
var
m : vetor[1..21, 1..10] de caractere
nome : caractere
i, j : inteiro
inicio
i := 1
para j de 1 ate 10 faca
repita
escreva("Informe o nome: ")
leia(m[i, j])
se compr(m[i, j]) > 20 entao
escreval("Informe um nome com no máx. 20 caracteres.")
fimse
ate compr(m[i, j]) <= 20
fimrepita
fimpara
para i de 2 ate 21 faca
para j de 1 ate compr(m[1, j]) faca
escreval(copia(m[1, j], j, 1))
fimpara
fimpara
fimalgoritmo
Não estou conseguindo distribuir as letras na matriz, e o erro do meu código diz que está faltando um faça na 5ª linha de baixo para cima, mas o faça está ali.