如何用pascal解二次方程？

留学预科考试计算机结业考试，要求用pascal解二次方程，可是课上没有教如何编写程序，还望大佬们帮帮小白！！！！！！！

program QuadraticEquation;

var
  a, b, c, delta, x1, x2: real;

begin
  { 读取a、b、c的值 }
  write('Enter a: ');
  readln(a);
  write('Enter b: ');
  readln(b);
  write('Enter c: ');
  readln(c);

  { 计算delta }
  delta := b * b - 4 * a * c;

  { 判断delta的值，输出结果 }
  if delta > 0 then
  begin
    { 有两个实根 }
    x1 := (-b + sqrt(delta)) / (2 * a);
    x2 := (-b - sqrt(delta)) / (2 * a);
    writeln('The equation has two real roots: ', x1:0:2, ' and ', x2:0:2);
  end
  else if delta = 0 then
  begin
    { 有一个实根 }
    x1 := -b / (2 * a);
    writeln('The equation has one real root: ', x1:0:2);
  end
  else
  begin
    { 无实根 }
    writeln('The equation has no real root.');
  end;

  readln;
end.

在该代码中，用户需要输入二次方程的系数a、b、c。程序根据这些系数计算二次方程的判别式delta，然后根据delta的值输出不同的结果：如果delta大于0，则有两个实根；如果delta等于0，则有一个实根；否则，无实根。