Calculadora (Free Pascal)

Essa eh uma calculadora que faz as 4 operacoes basicas, com varios numeros em caso de valor invalido ela acusa erro, podendo usar o resultado(Result) anterior para fazer o proximo calculo, nao soma por prioridades. Estou mandando .pas entao todos tem acesso ao codigo
(vim nomedoarquivo.pas)  , para compilar (fpc nomedoarquivo.pas ) e para executar
(./nomedoarquivo)... duvidas me inscreva e-mail...