Pascal/Turbo Pascal - Problema con Pascal

Calcular el precio del billete de ida y vuelta en un ferrocarril, conociendo la distancia de viaje de ida y el tiempo de estancia. Si sabe ademas que si el numero de dias de estancia es superior a 7 y la distancia total (ida y vuelta) a recorrer es superior a 800Km. El billete tiene una reducción del 30% el precio por Km. es de 0,17 bolívares.

{Espero esto sirva}

program prebillete;
uses
crt;
const
maxdias = 7;
kilomax = 800;
descu = 30;
precikl = 0.17;

var
distancia : real;
dias : integer;
tiempo : real;
quita : real;
total : real;
desc : boolean;


begin
clrscr;
write('Entre Distancia Km : ');
readln(distancia);
write('Entre Dias de Estancia : ');
readln(dias);
if (distancia > kilomax) and (dias > maxdias) then
desc := true
else
desc := false;
tiempo := distancia * precikl;
if desc = true then
quita := tiempo * descu / 100
else
quita := 0;
total := tiempo - quita;
clrscr;
writeln('La Distancia de ida y buelta es : ',distancia);
writeln('El tiempo de estancia es : ',dias);
writeln('El descuento asido : ',quita:8:2);
writeln('El costo del billete es : ',tiempo:8:2);
writeln('El precio total sera : ',total:8:2);
writeln;
writeln('Pulsa Una Tecla');
readkey;
end.