Pascal/Turbo Pascal - Ayuda por favor

Estoy en clases de programación y necesit ayuda para completar el codigo de un programa:
Hallar el valor Numérico de una expresión algebraica como:
5x²-7x+12 para diferentes valores de x
Ese es el problema y asi estoy haciendo

(*
program vn;
uses crt;
constn=3;
var
v:real;x:
integer;
begin
repeat
writeln('Este programa
calcula el valor numerico
de : 5x^2-7x+12');
writeln('Escriba un número para x');
readln(x);
v:=5*sqr(x);
writeln('El valor
numerico es:'
v:3:0);until
n
end.

*)

uses crt;
const
cinco = 5.0;
siete = -7.0;
doce = 12.0;
type
valor = Real;
function expresion(n:valor):valor;
begin
expresion := (cinco * (n * n) + (siete * n) + doce );
end ;
function cadena(n:valor):string;
var
s : string;
begin
str(n, s);
cadena := '5 * '+'('+s+ ' ^ 2)' +' -7 * ' + '('+s +')'+' + 12 ';
end ;

var
x : valor ;
res : char ;
verdad : Boolean ;

begin
res := 'S';
verdad := false;
repeat
clrscr;
x:= 0.0;
writeln('Este programa calcula el valor numerico de : 5x^2-7x+12');
writeln('Escriba un número para x');
readln(x);

writeln(cadena(x),' es ',expresion(x));
writeln;
writeln;
repeat
writeln(' Desea introducir otro valor de X [S/N]');
readln(res);
until (res = 'n') or (res = 'N') or (res = 's') or (res = 'S');

verdad := (res = 'n') or (res = 'N');

until (verdad);
end.

Hola, espero esto te ayude.
Saludos.