maxmedeiros

Olá galera, estou fazendo um curso e me foi passado um problema ao qual pesquisei muito, porém na hora da execução está dando o seguinte erro:

=>erro sintático na linha 216

=>'$' não especificado!

segue o código para que vocês possam me ajudar. desde já agradeço.

program Calculadora;
//uses Crt;
// {Função: Calcular}
// {Autor: MaxMediros}
// {Data: 18/10/2017}
function sqr( x,y :real ) : real;
var

decidir,decidir2: string;
x, y, valor1, valor2, a, b, c, delta: real;
final: string;
begin
  
  Final := 'Sim';
  
  while (final = 'sim') do
  begin
    writeln ('|Digite 1 Para ADIÇÃO           |');
    writeln ('|Digite 2 Para SUBTRAÇÃO        |');
    writeln ('|Digite 3 Para DIVISÃO          |');
    writeln ('|Digite 4 Para MULTIPLICAÇÃO    |');
    writeln ('|Digite 5 Para BHASKARA         |');
    writeln ('|Digite 6 Para PORCENTAGEM      |');
    writeln ('|Digite 7 Para POTÊNCIA         |');
    writeln ('|Digite 8 Para ÁREAS            |');
    writeln ('|Digite 9 Para RAÍZ             |');
    writeln ('|Digite 10 Para Sair            |');
    readln (decidir);
  end;
  
  ClrScr;
  
  
  if (decidir = '10') then
  begin
    writeln ('Finalizando Programa...');
  end;
  
  if (decidir = '2')  then
  begin
    writeln ('Digite o valor de X:');
    readln (x);
    writeln ('Digite o valor de y:');
    readln (y);
    valor1 := (X - Y);
    writeln ('O resultado é:', valor1);
  end;
  
  if (decidir = '1') then
  begin
    writeln ('Digite o valor de X:');
    readln (x);
    writeln ('Digite o valor de y:');
    readln (y);
    valor1 := (X + Y);
    writeln ('O resultado é:', valor1);
  end;
  if (decidir = '4')  then
  begin
    writeln ('Digite o valor de X:');
    readln (x);
    writeln ('Digite o valor de y:');
    readln (y);
    valor1 := (X * Y);
    writeln ('O resultado é:', valor1);
  end;
  
  if (decidir = '3')  then
  begin
    writeln ('Digite o valor de X:');
    readln (x);
    writeln ('Digite o valor de y:');
    readln (y);
    valor1 := (X / Y);
    writeln ('O resultado é:', valor1);
  end;
  
  if (decidir = '7') then
  begin
    writeln ('Digite o valor de X:');
    readln (x);
    writeln ('Digite o valor do Expoente:');
    readln (y);
    valor1 := ( sqr((y),(Y)));
    writeln ('O resultado é: ', valor1);
  end;
  
  
  if (decidir = '6') then
  begin
    writeln ('Digite a Porcentagem de X:');
    readln (x);
    writeln ('Digite o Valor de X:');
    readln (y);
    Valor1 := (x / 100);
    Valor2 := (Valor1 * y);
    writeln ('O resultado é:', valor2);
  end;
  
  if (decidir = '9') then
  begin
    writeln ('Digite a Raiz:');
    readln (y);
    valor1 := (RaizQ (y));
    writeln ('O resultado é:', valor1);
  end;
  
  if (decidir = '5') then
  begin
    writeln ('Digite o valor de A: ');
    readln (a);
    writeln ('Digite o valor de B: ');
    readln (b);
    writeln ('Digite o valor de C: ');
    readln (c);
    delta :=(bsqr(readln (c),2))-(4*a*c);
    valor1 := ((-b) + (RaizQ(delta)))/(2*a);
    valor2 := ((-b) - (RaizQ(delta)))/(2*a);
    writeln ('Delta:', delta);
    writeln ('x1:', valor1);
    writeln ('X2:', valor2);
  end;
  
  if (Decidir = '8') then
  begin
    writeln ('Qual dessas áreas desejas:');
    writeln (' a) Paralelepípedo;');
    writeln ('  Triângulo;');
    writeln (' c) Quadrado;');
    writeln (' d) Circunferência;');
    writeln (' e) Cubo;');
    writeln (' f) Cone;');
    writeln (' g) Voltar ao menu inicial');
    readln (decidir2);
  end;
  
  if (decidir2 = 'a') then
  begin
    writeln ('Digite o valor de A:');
    readln (a);
    writeln ('Digite o valor de B:');
    readln (b);
    writeln ('Digite o valor de C:');
    readln (c); // {at = 2 (ab + bc + ac)};
    valor1 := (a*b) + (b*c) +  (a*c);
    valor2 := (2 * valor1);
    writeln ('A área total é:', valor2);
  end;
  
  if (decidir2 = 'b') then
  begin
    writeln ('Digite o valor da Base:');
    readln (a);
    writeln ('Digite o valor da Altura:');
    readln (b);
    valor1 := (a*b / 2);           // {V = B * H /2};
    writeln ('A área total é:', valor1);
  end;
  
  if (decidir2 = 'c') then
  begin
    writeln ('Digite o valor do Lado: ');
    readln (a);
    valor1 := (a*a);                    // { Lado²};
    writeln ('Área total:', valor1);
  end;
  
  if (decidir2 = 'd') then
  begin
    writeln ('Digite o valor do Raio:');
    readln (a);
    alor1 := (a*a) * 3.14;         // { At = Pi * Raio²}
    writeln ('Área total:', valor1);
  end;
  
  
  if (decidir2 = 'e') then
  begin
    writeln ('Digite o valor do Lado:');
    readln (a);
    valor1 := (a*a) * 6 ;         // {6*Lado²};
    writeln ('A área total é:', valor1);
  end;
  
  if (decidir2 = 'f') then
  begin
    
    writeln ('Digite o valor do Raio:');
    readln (a);
    writeln ('Digite o valor da Geratriz:');
    readln (b);
    valor1 :=  ((3.14 * a) * (b + a));          // {Pi * r (g+ r)};
    writeln ('A área total é:', valor1);
  end;
  
  
  if ((decidir <> '1') and (decidir <> '2') and (decidir <> '9')
  and (decidir <> '3') and (decidir <> '4')    and(decidir <> '5')
  and (decidir <> '6') and (decidir <> '7') and (decidir <> '8')) then
  begin
    writeln ('Operação inexistente');
  end;
  
  writeln ('Queres continuar?');
  readln (Final);
  
  {Fimenquanto}
  
  writeln ('Finalizando...');
end.