Desconto variável na compra

{Minha lojinha de brinquedos está oferecendo descontos agora no final de ano de acordo com
o valor da compra. o descondo de 5% se o valor for maior que R$300, 15% se for
maior que R$ 500, 20% se maior que R$700 e 30%  acima de R$700, crie um
algoritmo que leia o nome do cliente, o nome do vendedor, o valor da compra
mostre o nome do cliente e do vendedor, valor da compra, valor de desconto
e o valor total a pagar pelo cliente.}


program compra_desconto;

var valor_compra, valor_desconto, valor_pagar: real;
    desconto : integer;
    vendedor : string[30];
    cliente : string[30];

begin
  
    write('O nome do cliente....:');
    readln(cliente);
    write('O nome do Vendedor....:');
    readln(vendedor);
    write('O valor da compra....:');
    readln(valor_compra);


    if valor_compra <= 300 then
          desconto := 5
    else if valor_compra <= 500 then
          desconto := 15
    else if valor_compra <= 700 then
          desconto := 20
    else
          desconto :=30;

    valor_desconto := (valor_compra * desconto) /100;
    valor_pagar :=  valor_compra - valor_desconto;

    writeln('Nome do cliente.......:',cliente);
    writeln('O nome do vendedor....:',vendedor);
    writeln('valor da compra.......:',valor_compra:6:2);
    writeln('valor do desconto.....:',valor_desconto:6:2);
    writeln('valor a pagar.........:', valor_pagar:6:2);

    writeln();
    readln();


end.