Calculo de multa de transito em pascal (turbo pascal)

Program Calculo_Valor_Multa_Por_Excesso_de_Velocidade; uses wincrt;

{Siglas das Variaveis}

{Vel_Cons= Velocidade Considerada}
{Toler= Tolerância}
{Multa= Valor da Multa}
{Exc= Excesso do limite}
{Vel_Afe= Velocidade Aferida}
{Vel_Via= Velocidade Via}
{Pt_Cart= Ponto na Carteira CHN}
{Niv_Grav= Nível de gravidade (Inflação)}

var Vel_Cons, Toler, Multa, Exc : real ; Vel_Afe, Vel_Via, Pt_Cart : integer; Niv_Grav : string ;
Begin
clrscr; {Informação do Motorista de qual via escolher} writeln('Digite qual a Categoria da Via em que estava trafegando?'); writeln('**************************************'); writeln('* C A T E G O R I A DA V I A *'); writeln('* *'); writeln('* 1 (Limite Máximo 40) *'); writeln('* 2 (Limite Máximo 50) *'); writeln('* 3 (Limite Máximo 60) *'); writeln('* 4 (Limite Máximo 70) *'); writeln('* 5 (Limite Máximo 80) *'); writeln('* 6 (Limite Máximo 90) *'); writeln('* 7 (Limite Máximo 100) *'); writeln('* 8 (Limite Máximo 110) *'); writeln('* 9 (Limite Máximo 120) *'); writeln('* *'); writeln('**************************************'); {Lendo a Categoria Via escolhida} read(Vel_Via); begin {declarando os dados da velocidade da Via} If (Vel_Via = 1)then Vel_Via := 40; If (Vel_Via = 2)then Vel_Via := 50; If (Vel_Via = 3)then Vel_Via := 60; If (Vel_Via = 4)then Vel_Via := 70; If (Vel_Via = 5)then Vel_Via := 80; If (Vel_Via = 6)then