Имя пользователя и решение уравнений

var s: string;
    a, b, c, x1, x2: real;
begin  
   WriteLn ('Оу, чувак, хело!'); 
   Write ('Как зовут тебя?  ');
   ReadLn (s);
   Write ('введи значение А,', s);
   Read (a);
   Write ('Клёво, теперь Б!  ');
   Read (b);
   Write ('Ц и свободен.  ');
   Read (c);
   x1:=(-b+sqrt(sqr(b)-4*a*c))/(2*a);
   x2:=(-b-sqrt(sqr(b)-4*a*c))/(2*a);
   WriteLn ('Зырь, это Икс Один:  ', x1);
   WriteLn ('И Икс Два:  ', x2);
end.

var s: string;
    a, b, c,d, x1, x2: real;
begin
   WriteLn ('Оу, чувак, хело!');
   Write ('Как зовут тебя?  ');
   ReadLn (s);
   Write ('введи значение А,', s);
   Read (a);
   Write ('Клёво, теперь Б!  ');
   Read (b);
   Write ('Ц и свободен.  ');
   Read (c);
   if a<>0 then
   begin
    d:=b*b-4*a*c;
    if d>=0 then
    begin
     writeln('Зырь, это Икс Один:  ',(-b+sqrt(d))/(2*a));
     writeln('И Икс Два:  ',(-b-sqrt(d))/(2*a));
    end
    else writeln('решений нет');
   end
   else
    if b<>0 then write(-c/b)
     else
      if c<>0 then write('решений нет')
       else
         write('решение любое вещественное число');
end.