Ajuda com Problema em Pascal

varjal · 11 de maio de 2015

•Escrevam um programa que possui um cadastro de 5 pessoas, composto por 3 vetores: um para nomes (string), outro para idades (integer) e outro para o sexo (char);

•O programa inicialmente irá cadastrar as pessoas, sempre solicitando ao usuário os dados referentes ao nome, idade e sexo da pessoa, armazenando nos vetores;

•Após os vetores estarem preenchidos, o programa exibirá um menu com as seguintes opções:

•Escolha uma das opções abaixo:

A seguir, um exemplo de funcionamento do programa:

•1 - Imprimir Pessoas

•2 - Imprimir maiores que 18 anos

•3 - Imprimir por Pessoa

•4 - Imprimir por Sexo

•5 – Sair

•Nesta etapa, o programa irá repetir os procedimentos acima até que a opção informada pelo usuário for igual a 5, quando então encerra e exibe a mensagem: “Fim do Programa”

•Apenas serão considerados válidos os códigos que apresentarem corretamente:

•Estrutura de repetição (For, While ou Repeat);

•Estrutura Condicional (IF THEN ELSE ou Case)

Isso foi o que consegui fazer, mas esta cheio de bronca:

Program Pzim ; var nome: array [1..5] of string; idade: array [1..5] of integer; sexo: array  [1..5] of char; l,i,c,a,b: integer; //contadores opsao:integer; NOME_INFORMADO: STRING  ; SEXO_INFORMADO: CHAR; Begin    for l:= 1 to 5 do  begin   writeln('DIGITE O NOME DA PESSOA:');   READ(NOME[L]) ;   writeln('DIGITE A IDADE DA PESSOA:');   READ(IDADE[L]) ;   writeln('DIGITE SEXO( F OU M ) DA PESSOA:');   READ(SEXO[L]) ;  end;   //-------------------------------------------------  repeat   WRITELN('DIGITE A OPÇÃO DESEJADA:');  WRITELN('1 - Imprimir Pessoas');  WRITELN('2 - Imprimir maiores que 18 anos');  WRITELN('3 - Imprimir por Pessoa');  WRITELN('4 - Imprimir por Sexo');  WRITELN('5 – Sair');  readln (opsao);           case opsao of    1: BEGIN       for l:= 1 to 5 do       writeln (nome[l],' - ',idade[l],' - ',sexo[l]) ;     END;       2: BEGIN       for l:= 1 to 5 do      begin       if idade[l] >= 18 then       writeln (nome[l],' - ',idade[l],' - ',sexo[l]) ;      end;     END;       3:  begin      writeln ('DIGITE O NOME DA PESSOA:');      READ(NOME_INFORMADO) ;      for l:= 1 to 5 do        begin          if (NOME_INFORMADO = (NOME[L])) then          writeln (nome[l],' - ',idade[l],' - ',sexo[l]) ;        end;      end;    4: begin      writeln ('DIGITE O SEXO DA PESSOA:');      READ(SEXO_INFORMADO);      for l:= 1 to 5 do       begin        if (SEXO_INFORMADO = (SEXO[L])) then        writeln (nome[l],' - ',idade[l],' - ',sexo[l]) ;       end;      end;     5: WRITELN('FIM DO PROGRAMA...') ;  end;  until opsao = 5 ; End.