Programação- Exemplo de Estrutura Case

Program Ex ;
uses crt;
var
  imp,sal_novo,clas,sal:real;
  op:integer;
 Begin
    writeln('menu de Opções');
    writeln('1-Imposto');
    writeln('2-Novo Salario');
    writeln('3-Classificação');
    writeln('Digite a opção desejada');
    readln(op);
    case op of
     1: begin
           Writeln('Informe o salario');
           readln(sal);
           If(sal<500)then
            begin
              Imp:=sal*0.05;
     
       writeln('O valor do Imposto é',imp:0:2);
            end
            else if(sal>=501) and (sal<=850) then
              begin
                Imp:=sal*0.09;
               writeln('O valor do Imposto é',imp:0:2);
              end
              else if(sal>850)then
                begin
                  Imp:=sal*0.15;
                 writeln('O valor do Imposto é',imp:0:2);
                end;
       end;
    2:begin
         Writeln('Informe o salario');
          readln(sal);
          If(sal>1500)then
            begin
              sal_novo:=sal+25;
              writeln('o novo salario é',sal_novo:0:2);
            end  
            else If(sal>=750)and (sal<=1500)then
              begin
                sal_novo:=sal+50;
                writeln('o novo salario é',sal_novo:0:2);    
             end           
             else If(sal>=451)and (sal<750)then
                begin
                  sal_novo:=sal+75;
                  writeln('o novo salario é',sal_novo:0:2);    
               end
               else If(sal<=450)then
                begin
                  sal_novo:=sal+50;
                  writeln('o novo salario é',sal_novo:0:2);    
               end
      end;              
     3:begin
         writeln('Informe o seu salario');
         readln(sal);
         If(sal<=700)then
           begin
             writeln('Salario mal renumerado');
           end
         else if (sal>=701)then
           begin
             writeln('Salario Bem renumerado');
           end;
      end
      else
        writeln('Opção Invalida');           
 End;
end.