Programação 1 - Exemplo de Estrutura composta

Program ex ;
  Uses CRT;
    var
      codigo:integer;
      sal_atual, sal_novo, au:real;
 Begin
     writeln('Menu de Opções');
     writeln('1-Cargo de Escrituário');
     writeln('2-Cargo de Secretario');
     writeln('3-Cargo de Caixa');
     writeln('4-Cargo de Gerente');
     writeln('5-Cargo de Diretor');
     readln(codigo);
     If(codigo=1)then
        begin
     
      writeln('Informe seu salario de Escrituário');
            readln(sal_atual);
            sal_novo:=(sal_atual*0.5)+ sal_atual;
            writeln('Novo salario do Escrituário é',sal_novo:0:2);
            writeln('Você teve aumento de 50%');
          end
          else If(codigo=2)then
           begin
             writeln('Informe seu salario de Secretario');
              readln(sal_atual);
              sal_novo:=(sal_atual*0.35)+ sal_atual;
              writeln('Novo salario do Secretario é',sal_novo:0:2);
              writeln('Você teve aumento de 35%');
            end
          else If(codigo=3)then        
              begin
                writeln('Informe seu salario de Caixa');
                readln(sal_atual);
                sal_novo:=(sal_atual*0.2)+ sal_atual;
                writeln('Novo salario do Caixa é',sal_novo:0:2);
                writeln('Você teve aumento de 20%');
              end
              else If(codigo=4)then
                begin
                  writeln('Informe seu salario de Gerente');
                  readln(sal_atual);
                  sal_novo:=(sal_atual*0.1)+ sal_atual;
                  writeln('Novo salario do Gerente é',sal_novo:0:2);
                  writeln('Você teve aumento de 10%');
                end
                else If(codigo=5)then
                  begin
                   writeln('Informe seu salario de Diretor');
                    readln(sal_atual);
                    writeln('O salario do Diretor não tem aumento',sal_atual:0:2);
                  end
                  else
                  writeln('Opção Invalida');
       end.