unipe - correct

Program folha_pagamento;
USES crt;
VAR
quant_cat1, quant_cat2, quant_cat3, quant_func, categoria, horas: integer;
salario, maior_salario, menor_salario, soma_cat1, soma_cat2, soma_cat3, vendas: real;
BEGIN 
   quant_cat1:=0;
   quant_cat2:=0;
   quant_cat3:=0;
   soma_cat1:=0;
   soma_cat2:=0;
   soma_cat3:=0;
   quant_func:=0;
   READLN(categoria)
   WHILE (categoria > 0) AND (categoria < 4) DO
       BEGIN
          CASE (categoria) OF
             1: BEGIN
                   salario:=4000;
                   quant_cat1:=quant_cat1+1;
                   soma_cat1:=soma_cat1+salario;
                END;
             2: BEGIN
                   READLN(horas);
                   salario:=horas*6;
                   quant_cat2:=quant_cat2+1;
                   soma_cat2:=soma_cat2+salario;
                END;
             3: BEGIN
                   READLN(vendas);
                   salario:=200+(vendas*0.06);
                   quant_cat3:=quant_cat3+1;
                   soma_cat3:=soma_cat3+salario;
                END;
       END;
       IF (quant_func = 1) THEN
           BEGIN
              IF (salario > maior_salario) THEN
                 maior_salario:=salario;
              IF (salario < menor_salario) THEN
                 menor_salario:=salario;
           END
       ELSE
           BEGIN
              quant_func:=1;
              maior_salario:=salario;
              menor_salario:=salario;
           END;
       READLN(categoria);
   END;
   WRITELN(quant_cat1);
   WRITELN(soma_cat1);
   WRITELN(quant_cat2);
   WRITELN(soma_cat2);
   WRITELN(quant_cat3);
   WRITELN(soma_cat3);
   WRITELN(soma_cat1+soma_cat2+soma_cat3);
   WRITELN(maior_salario);
   WRITELN(menor_salario);
END.