Защита от дурака

programm abc;
var
 a:real;
begin
 write('vvedite a');
 readln(a);
end.

uses
  crt;
var
  sa,sb,sc:string;
  a,b,c,d:real;
  code:integer;
{ôóíêöèÿ ïðîâåðêè}
function Pr(s:string):boolean;
const
  n=['0'..'9'];
var
  i:integer;
  fl:boolean;
begin
  fl:=true;
  for i:=1 to length(s) do
    if not(s[i] in n) then
    begin
      fl:=false;
      break
    end;
  Result:=fl
end;
{îñíîâíàÿ ïðîãðàììà}
begin
  clrscr;
  {ïðîâåðÿåì íà êîððåêòíîñòü}
  writeln('Ââåäèòå a...');
  repeat
    readln(sa);
    if not Pr(sa) then
      writeln('Äàííàÿ çàïèñü íå ÿâëÿåòñÿ êîððåêòíîé çàïèñüþ ÷èñëà!')
  until
    Pr(sa);
  writeln('Ââåäèòå b...');
  repeat
    readln(sb);
    if not Pr(sb) then
      writeln('Äàííàÿ çàïèñü íå ÿâëÿåòñÿ êîððåêòíîé çàïèñüþ ÷èñëà!')
  until
    Pr(sb);
  writeln('Ââåäèòå c...');
  repeat
    readln(sc);
    if not Pr(sc) then
      writeln('Äàííàÿ çàïèñü íå ÿâëÿåòñÿ êîððåêòíîé çàïèñüþ ÷èñëà!')
  until
    Pr(sc);
  {ïåðåâîäèì}
  val(sa,a,code);
  val(sb,b,code);
  val(sc,c,code);
  if a=0 then
    if b=0 then
      writeln ('Óðàâíåíèå âûðàæäåíî')
    else
      writeln ('Åäèííñòâåííûé êîðåíü X=',-c/b)
      else
      begin
        d:=b*b-4*a*c;
        a:=2*a;
        if d<0 then
          writeln ('Äåéñòâèòåëüíûõ êîðíåé íåò!')
        else
          if d=0 then
            writeln ('Îáà êîðíÿ ðàâíû: X1=X2',-b/a)
          else
          begin
            d:=sqrt(d);
            writeln ('X1=',(-b+d)/a);
            writeln ('X2=',(-b-d)/a);
          end;
      end;
end.