Solução em Pascal do Problema 2

program Notas;
type
  Vetor=array [1..30] of char;
var
  n, i, Conta, Pontos: integer;
  Gabarito, Resp: Vetor;
begin
  write ('Digite o numero de alunos: ');
  readln (n);
  writeln ('Digite o gabarito da prova:');
  for i:=1 to 30 do readln (Gabarito[i]);
  for Conta:=1 to n do
    begin
      Pontos := 0;
      writeln ('Entre com as respostas do aluno ',Conta,': ');
      for i:=1 to 30 do
        begin
          readln (Resp[i]);
          if Resp[i] = Gabarito[i] then Pontos := Pontos+1
        end;
      writeln ('O aluno ',Conta,' teve ',Pontos,' pontos')
    end
end.