Помогите разработать программу в delphi для вычисления квадратных уравнений.

Как-то так procedure SqRoot(a,b,c: real; var x1,x2: real; var ok: boolean); { a,b,c – коэффициенты уравнения x1,x2 – корни уравнения ok = True – решение есть ok = False – решения нет } var d: real; // дискриминант begin d: = Sqr(b) -4*a*c; if d < 0 then ok: = False // уравнение не имеет решения else begin ok: = True; x1: = (-b + Sqrt(d)) / (2*a); x2: = (b + Sqrt(d)) / (2*a); end; end;