Где тут ошибкаprogram n_11; var a, b, c:Real; var d:Real; var

Где здесь ошибка
program n_11;
var a, b, c:Real;
var d:Real;
var x, x1, x2:Real;
begin
WriteLn('Расширение квадратного уровнения');
Write('Введите коофиценты a, b, c gt;gt;');
ReadLn(a, b, c,);
d:=b*b-4*a*c;
if dlt;0 then WriteLn('Корней нет')
else
if d=0 then
begin
x:=-b/2/a;
WriteLn('Корнень уровненияx=',x:9:3)
end
else
begin
x1:=(-b+sqrt(d))/2/a;
x2:=(-b+sqrt(d))/2/a;
WriteLn('Корешки уровнения:');
writeln(x1=',x1:9:3);
WriteLn(x2=',x2:9:3)
end
end.