Pascal/Turbo Pascal - ¿Porqué da resultado negativo?

{Comprobado corre bien solo detecto este error pero puede ser de copia.}

var P: integer;   la p en este otro lado es pc ------------------------------------------>

NC: integer;                                                                                                                     i

MONTO: real;                                                                                                                   i

                                                                                                                                           i

{Cuerpo del programa}                                                                                                 i

BEGIN                                                                                                                               i

CLRSCR;                                                                                                                         i

WRITELN(´INGRESE EL PRECIO DE LA CAMISA´);                                               i

READLN (P);                                                                                                                    i

WRITELN(´INGRESE LA CANTIDAD DE CAMISAS COMPRADAS´);                    i

READLN(NC);                                                                                                                  i

IF (NC>= 3) THEN                                                                                                           i

MONTO.= NC*P*0.85                                                                                                     i

ELSE                                                                                                                                  i

MONTO:=NC*PC; ------------------------------------------------------------------------------>