Sei que este trabalho ja faz um bom tempo que ja foi entregue... mas. Como estou sem nada para fazer estou dando uma olhada em seu codigo... (linha 20)Uma boa seria voce mudar -> if (RESP= 'S') then para if (RESP= 'S') or (RESP='s') then da mais opções para o usuario.
(linha 28 a 40) Seria legal voce quanta casas decimais voce quer ex areia:20:2.
(linha 43) falta colocar o readln(OPCAO);
(as contas) voce colocou as variaveis com letras diferentes e tambem indicar que é uma string
Ex (OPCAO='areia')
E outra coisa voce esqueceu-se de colocar como vai entrar o valor para se fazer a conta TOTAL.
E na quela parte de "WRITELN('DESEJA OUTRO MATERIAL OPÇÃO ANTERIOR? SE SIM S OU P PROXIMO');
READLN(RESP);"
voce nao pode dizer que isso é else, se nao ele pula esta parte.
(linha 95) acrescente Writeln('Sua conta final do orçamento é:',TOTAL,' reais');
Writekn('Muito obrigado por fazer orçamento com nossa loja');
readln;
Para ficar bonito no final
Espero que tenha dado certo seu projeto
e tenha tirado a nota maxima
Abaços!