Código no pascal compilando mas com bug no executável

[Jadson Hugo]

Estou com problemas com esse código, ele compila e tudo mas não funciona corretamente quando o programa é executado. Alguém pode me ajudar :/ ( obs: sou iniciante ^^)

Código: 

Program calculo e autonomia;  
uses crt;
var escolha : integer;
carro : integer;
litros : real;{0,5}
calculo : real;
quilometros : real;
const calcular = 1;{1,0}
descobrir = 2;
gol = 1;
palio = 2;
sandero = 3;
fiat = 4;
corola = 5;
opala = 6;
Begin
  writeln('Tecle ',calcular,' para calcular a autonomia');
  writeln('Tecle ',descobrir,' para descobrir a autonomia');
  readln(escolha);{0,5}
    if (escolha <1) or (escolha >2) then begin
         writeln('Opcao invalida!');
    end;
        if escolha = calcular then begin
        writeln('Qual o carro voce deseja calcular?');
        writeln('Tecle ',gol,' para o carro gol');
        writeln('Tecle ',palio,' par o carro palio');
        writeln('Tecla ',sandero,' para o carro sandero');
        writeln('Tecle ',fiat,' para o carro fiat');
        writeln('Tecla ',corola,' para o carro corola');
        writeln('Tecle ',opala,' para o carro opala');
        readln(carro);
    if  (carro <1) or (carro>6) then
    writeln('Opção inválida');
    end;
    if carro = gol or palio or sandero or fiat or corola or opala then begin
       writeln('Quantos litros tem o carro?');         
       readln(litros);
       calculo := (litros*14);
    if carro = palio then
       calculo := (litros*13);
       writeln('O maximo que ele poderá andar e ',calculo:6:2,'km ');
    if carro = sandero then
       calculo := (litros*13.5);
       writeln('O maximo que ele poderá andar e ',calculo:6:2,'km ');
    if carro = fiat then
       calculo := (litros*16);
       writeln('O maximo que ele poderá andar e ',calculo:6:2,'km ');
    if carro = corola then
       calculo := (litros*9);
       writeln('O maximo que ele poderá andar e ',calculo:6:2,'km ');
    if carro = opala then
       calculo := (litros*2);
       writeln('O maximo que ele poderá andar e ',calculo:6:2,' km ');
    end;
    if escolha = descobrir then   //Esse "if" é o da parte de descobrir, continuando o algoritmo.
       writeln('Quantos quilometros foram rodados?');
       readln(quilometros);
    
       writeln('Quantos litros você usou?');
       readln(litros);
    
       calculo :=(quilometros/litros);
       writeln('Esse carro faz ',calculo:6:2,'km/l');
      
    if calculo = 14 then begin                           
       writeln('A autonomia equivale ao do carro gol');
    if calculo = 13 then
       writeln('A autonomia equivale ao do carro palio');
    if calculo = 13.5 then
       writeln('A autonomia equivale ao do carro sandero');
    if calculo = 16 then
       writeln('A autonomia equivale ao do carro fiat');
    if calculo = 9 then
       writeln('A autonomia equivale ao do carro corola');
    if calculo = 2 then
       writeln('A autonomia equivale ao do carro opala');
    end;
  readkey();
end.