Составить подпрограмму определения минимума функции y=f(x)

uses crt;
type func=function (x: real):real;
 
var xn,xk,dx,min1,min2: real;
 
function F1 (x: real): real;
begin
if x<>0 then F1:=sqr(sin(x))*cos(x)-ln(abs(x)) else F1:=0;
end;
 
function F2 (x: real): real;
begin
F2:=x*x-(2*x)+8;
end;
 
function Min (f: func;a,b,h: real): real;
var x,y,mn: real; i: integer;
begin
writeln('Табулирование функции');
writeln('------------------');
writeln('|','x':4,'|':4,'y':4,'|':4);
writeln('------------------');
mn:=f(a);
x:=a; i:=0;
while x<=b do
      begin
      inc(i);
      y:=f(x);
      writeln('|',x:6:2,'|':2,y:6:2,'|':2);
      x:=x+h;
      if y<mn then mn:=y;
      if i mod 18=0 then
         begin
         writeln('-----------------');
         writeln('Enter to continue');
         readln;
         clrscr;
         writeln('Табулирование функции');
         writeln('-----------------');
         writeln('|','x':4,'|':4,'y':4,'|':4);
         writeln('-----------------');
         end;
      end;
writeln('-----------------');
Min:=mn;
end;
 
begin
clrscr;
writeln('Функция y=sin^2x*cosx-ln(|x|)');
repeat
writeln('Укажите диапазон [a,b], не включая ноль:');
readln(xn,xk);
until (xk>xn)and(xk*xn>0);
write('Шаг: '); readln(dx);
min1:=Min(F1,xn,xk,dx);
writeln('Enter to continue');
readln;
clrscr;
writeln('Функция y=x^2-2x+8');
repeat
writeln('Укажите диапазон [a,b]:');
readln(xn,xk);
until xk>xn;
write('Шаг: '); readln(dx);
min2:=Min(F2,xn,xk,dx);
writeln('Enter to continue');
readln;
clrscr;
writeln('Мин. функции sin^2x*cosx-ln(|x|)=',min1:0:2);
writeln('Мин. функции y=x^2-2x+8=',min2:0:2);
readln;
end.