Как задать разрывную функцию в паскале

program n_2;
 function f(x: real): real;
  var x1, x2, x3: real;
 begin
    f:=5/x+sqr(x); // <---
 end;
  var a, b, x1, x2, x3, e, en, f1, f2, f3, k, n: real;
begin
  writeln ('Метод дихотомии');
  writeln ('Введите крайние точки отрезка');
  a:=0.5;
  writeln ('a=', a);
  b:=2;
  writeln ('b=', b);
  writeln ('Введите точность ');
  write ('e=');
  read (e);
  k:=0;
  n:=0;
  x2:=(a+b)/2;
  f2:=f(x2);
  n:=n+1;
  while ((b-a)/2)>e do 
  begin
  k:=k+1;
  x1:=(a+x2)/2;
  f1:=f(x1);
  n:=n+1;
   if f1<=f2 then 
    begin 
     b:=x2;
     x2:=x1;
     f2:=f1;
    end
   else
    begin
     x3:=(x2+b)/2;
     f3:=f(x3);
     n:=n+1;
     if f2<=f3 then 
      begin 
       a:=x1;
       b:=x3;
      end
     else 
      begin
       a:=x2;
       x2:=x3;
       f2:=f3;
      end;
    end;
  end;
  writeln ('Количество итераций ', k);
  writeln ('Количество вычислений значения функции ', n);
  writeln ('Минимум функции ', x2); 
  writeln ('Значение минимума функции ', f2);
end.

uses crt;
type func=function(x:real):real;
function f1(x:real):real;
begin
f1:=sqr(x-3)
end;
function f2(x:real):real;
begin
f2:=sqr(x-2);
end;
procedure min(a,b,e:real;f:func;var xm:real;var n:integer);
var dx,c:real;
begin
dx:=e/2;
n:=0;
repeat
 c:=(a+b)/2;
 if f(c-dx)>f(c+dx) then a:=c else b:=c;
 inc(n);
until b-a<e;
xm:=(a+b)/2;
end;
 
var e,xm1,xm2,xm,ym: real;
    n1,n2,n:integer;
begin
writeln ('Поиск мигимума методом дихотомии сложной функции');
writeln('При 0<x<1 f(x)=(x-3)^2 при 1<=x<3 f(x)=(x-2)^2');
repeat
write('Введите точность 0<e<1 e=');
readln(e);
until(e>0)and(e<1);
min(0,1,e,f1,xm1,n1);
writeln('На первом участке;');
writeln ('Количество итераций ', n1);
writeln ('Минимум функции в точке х=',xm1:0:2);
writeln ('Значение минимума функции=',f1(xm1):0:2);
writeln;
min(1,3,e,f2,xm2,n2);
writeln('На втором участке;');
writeln ('Количество итераций ', n2);
writeln ('Минимум функции в точке х=',xm2:0:2);
writeln ('Значение минимума функции=',f2(xm2):0:2);
writeln;
writeln('Результат:');
writeln ('Количество итераций ', n1+n2);
if f1(xm1)<f2(xm2) then
 begin
  xm:=xm1;
  ym:=f1(xm1)
 end
else
  begin
  xm:=xm2;
  ym:=f2(xm2)
 end;
writeln ('Минимум функции в точке х=',xm:0:2);
writeln ('Значение минимума функции=',ym:0:2);
end.