Problemas de Notas Escolares em Pascal - Dúvida

[sTokesX]

Fala galera! É o seguinte, estou no 2º grau do Ensino Médio e com o final das notas escolares, eu resolvi tentar criar um pequeno algoritmo em pascal que apenas de colocar o resultado do 4º Bimestre, ele calcula o resultado do ano inteiro e me diz se passei ou não, em determinada matéria.

Eu criei 2 variáveis para Português (ValPortugues) e Matemática (ValMatematica), que recebem o total dos meus 3 Bimestres. Já as variáveis QPortugues e QMatematica, recebem o valor do 4º Bimestre.

Porém, o problema que estou tendo é que ao executar o programa e escolher o número 2, além de executar o cálculo de MATEMÁTICA, ele também executa o bloco de Português.

Programa em execução e ao escolher número 2 (Matemática):

Código até o momento:

uses
  SysUtils;
  Var ValPortugues, ValMatematica, ValBiologia, ValGeografia,
      QPortugues, QMatematica, QBiologia, QGeografia: Real;
      Escolha: Integer;
begin
  Writeln('====== Programa de Notas Escolares - 4 bimestre ======');
  Writeln('Digite o numero da materia que deseja calcular: ');
  Writeln(' 1 - Portugues');
  Writeln(' 2 - Matematica');
  Writeln(' 3 - Biologia');
  Writeln(' 4 - Geografia');
  Readln(Escolha);
 
    {Portugues}
 
  If Escolha = 1 Then
    Begin
      Writeln(' ===== Portugues ===== ');
      Writeln('* Digite a nota do 4 bimestre: ');
      Readln(QPortugues);
      ValPortugues := 22;
      ValPortugues := ValPortugues + QPortugues;
    End;
 
    If ValPortugues < 20 Then
      Begin
        Writeln('* REPROVADO *');
        Writeln('** O total de pontos ao ano foi de ',ValPortugues:2:2,' Pontos.');
      End;
 
    If ValPortugues >= 20 Then
      Begin
        Writeln('* APROVADO * ');
        Writeln('** O total de pontos ao ano foi de ',ValPortugues:2:2,' Pontos.');
        Readln;
      End;
 
     {Matematica}
 
  If Escolha = 2 Then
    Begin
      Writeln(' ===== Matematica ===== ');
      Writeln('Digite a nota do 4 bimestre: ');
      Readln(QMatematica);
      ValMatematica := 16;
      ValMatematica := ValMatematica + QMatematica;
      Writeln('O total de pontos ao ano foi de ',ValMatematica:2:2,' Pontos.');
      Readln;
    End;
 
    If ValMatematica < 20 Then
      Begin
        Writeln('* REPROVADO *');
        Writeln('** O total de pontos ao ano foi de ',ValMatematica:2:2,' Pontos.');
      End;
 
    If ValMatematica >= 20 Then
      Begin
        Writeln('* APROVADO * ');
        Writeln('** O total de pontos ao ano foi de ',ValMatematica:2:2,' Pontos.');
        Readln;
      End;
 
   Readln;
 
end.
 

[Jhonas]

basta modificar a posição do comando end nos ifs ( If Escolha = )

uses
  SysUtils;
  Var ValPortugues, ValMatematica, ValBiologia, ValGeografia,
      QPortugues, QMatematica, QBiologia, QGeografia: Real;
      Escolha: Integer;
begin
  Writeln('====== Programa de Notas Escolares - 4 bimestre ======');
  Writeln('Digite o numero da materia que deseja calcular: ');
  Writeln(' 1 - Portugues');
  Writeln(' 2 - Matematica');
  Writeln(' 3 - Biologia');
  Writeln(' 4 - Geografia');
  Readln(Escolha);

    {Portugues}

  If Escolha = 1 Then
    Begin
      Writeln(' ===== Portugues ===== ');
      Writeln('* Digite a nota do 4 bimestre: ');
      Readln(QPortugues);
      ValPortugues := 22;
      ValPortugues := ValPortugues + QPortugues;


      If ValPortugues < 20 Then
      Begin
        Writeln('* REPROVADO *');
        Writeln('** O total de pontos ao ano foi de ',ValPortugues:2:2,' Pontos.');
      End;

      If ValPortugues >= 20 Then
      Begin
        Writeln('* APROVADO * ');
        Writeln('** O total de pontos ao ano foi de ',ValPortugues:2:2,' Pontos.');
        Readln;
      End;
    End;
     {Matematica}
 
  If Escolha = 2 Then
    Begin
      Writeln(' ===== Matematica ===== ');
      Writeln('Digite a nota do 4 bimestre: ');
      Readln(QMatematica);
      ValMatematica := 16;
      ValMatematica := ValMatematica + QMatematica;
      Writeln('O total de pontos ao ano foi de ',ValMatematica:2:2,' Pontos.');
      Readln;

      If ValMatematica < 20 Then
      Begin
        Writeln('* REPROVADO *');
        Writeln('** O total de pontos ao ano foi de ',ValMatematica:2:2,' Pontos.');
      End;

      If ValMatematica >= 20 Then
      Begin
        Writeln('* APROVADO * ');
        Writeln('** O total de pontos ao ano foi de ',ValMatematica:2:2,' Pontos.');
        Readln;
      End;
    End;

   Readln;

end.

abraço