André Sousa

Fala galera, estou aprendendo matriz e estou com um problema em 2 coisas. A primeira seria preencher a matriz com um caractere específico e o segundo seria fazer com que dentro de uma estrutura de repetição os dados que eu quero sejam lidos dentro da matriz. Alguém pode me dar uma luz? Segue o enunciado: Um aviao possue 6 fileira de poltronas, sendo que em cada fileira tem 8 poltronas. As fileiras sao numeradas de 1 a 6 e as poltronas de 1 a 8. Elabore um algoritmo para efetuar reservas de assento nesse aviao. Dados de Entrada: Numero do Passageiro; Num. da Fileira; Num. da Poltrona. Valide o Numero da Fileira e da Poltrona. - Numero da Fileira deve estar entre 1 e 6 (inclusive), caso contrario envie mensagem: "Fileira Inexistente". - Numero da Poltrona deve estar entre 1 e 8 (inclusive), caso contrario envie mensagem: "Poltrona Inexistente". Ao reservar o assento, se o mesmo estiver ocupado envie mensagem "Poltrona Ocupada - Reserva nao efetuada", senao efetue a reserva e envia mensagem: "Poltrona Livre - Reserva Efetuada". Sugestao: Iniciar o programa preenchendo a matriz de assentos com o caractere 'L' (livre). Para reservar use o criterio: Posicao de assentos com L esta livre, pode ser reservado. Para reservar assento trocar o 'L' pelo caractere 'O' (ocupado). O programa deve encerrar quando Num. do Passageiro for igual a 0. No encerramento do programa mostre a situacao dos assentos do voo. (mostrar o conteudo da Matriz) Até agora o que eu fiz foi isso, mas aí meu cérebro bugou na parte de colocar o que quero dentro da matriz, alguém poderia me dar uma luz? Program Aviao; uses CRT; var mat_poltrona :array [1..6,1..8] of String; IndF, IndP :byte; num_passageiro, num_fileira, num_polt :word; begin ClrScr; writeln(mat_poltrona[IndF,IndP], 'L'); GotoXY(05,05); writeln('Digite o n£mero do passageiro:'); GotoXY(05,06); Writeln ('Digite o n£mero da Fileira:'); GotoXY(05,07); Writeln ('Digite o n£mero da Poltrona:'); while (num_passageiro <> 0) do begin GotoXY(30,05); Readln(num_passageiro) GotoXY(30,06); readln(mat_poltrona[IndP end.