Lista de exercicios - Array - Vetor

Escreva um que leia um vetor G de 20 elementos caractere que representa o gabarito de uma prova. A seguir, para cada um dos 50 alunos da turma, leia o vetor de respostas (R) do aluno e conte o numero de acertos. Mostre o nº de acertos do aluno e uma mensagemAPROVADO, se a nota for maior ou igual a 6; e mostre uma mensagem de REPROVADO, caso contrário.


Program Pzim ;
VAR
certa,soma, cont, cont1,alunos : integer;

G:array[1..20]of char;
R:array[1..20]of char;

Begin
soma:=0;
for cont1:=1 to 5 do
begin
writeln ('digite a resposta da questao ', cont1);
readln (G[cont1]);
end;
writeln ('Gabaritoinserido');
writeln;


for alunos:=1 to 3 do
begin

for cont:=1 to 5 do
begin
writeln ('ALUNO [ ',alunos,' ]Digite a resposta ',cont);
readln (R[cont]);

if (R[cont] = G[cont]) then
soma:=soma+1;
end;
if (soma>=3) then
Writeln ('Aluno ',alunos,' aprovado')
else
Writeln('Aluno ',alunos,' reprovado');
Writeln;
Writeln;
soma:=0;
Writeln('------------------------------------');
end;

End.