delphi 错误

代码如下：
program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
a,b,c,x1,x2,theta:real;
begin
{ TODO -oUser -cConsole Main : Insert code here }
writeln('这是一个求解一元二次方程的程序');
writeln('请输入a,b,c的值');
read(a,b,c);
theta:=b*b-2*a*c;

if (theta>0) then
begin
theta:=sqrt(theta);
x1:=(-b+theta)/(2*a);
x2:=(-b-theta)/(2*a);
writeln('方程有两个不同的实根。');
writeln('x1=',x1);
writeln('x2=',x2);
readln;
else if (theta=0) then
begin
x1:=-b/(2*a);
writeln('方程式有两个相同的实根。');
writeln('x1=x2=',x1);
end
else begin
writeln('方程式没有实根。');
readln;
readln;
end.

#####################################################
错误提示如下：
Build
[Error]

delphi代码错误了。 delphi maskedit 错误 DELPHI编程的一个错误! delphi程序做安装程序提示错误 delphi登录验证出现的错误 delphi sql 语句FROM子句错误问题。 这个DELPHI错误源代码怎样更改？ delphi 防止重复提交代码 错误 请教一个delphi的问题，老出现错误 delphi 问题，运行时有错误提示，请大家帮忙看看