Viết chương trình sử dụng chương trình con giải phương trình bậc 2 ax^2+bx+c=0

uses crt, math ;
    var a, b, c : real ;
  procedure Giai_PT_2 ;
   var Delta : real ;
     begin
    Delta := b *b - 4 * a * c ;
    if Delta > 0 then 
         begin
        Delta := Delta ** (0.5);
        writeln('X1= ',(-b+Delta)/(2*a):0:2);
        writeln('X2= ',(-b-Delta)/(2*a):0:2);
         end ;
    if Delta = 0 then writeln('X1=X2= ',-b/(2*a));
    if Delta < 0 then writeln('No solutin');
     end ;
begin clrscr;
    read(a,b,c);
    Giai_PT_2 ;
end .