Подскажите, как создать программу( Pascal)

[danilka287]

Составьте программу для нахождения наибольшего и наименьшего значения заданной функции на заданном интервале (В PASCAL). Через какие циклы создавать или массивы??? как вообще она выглядит?

[newerow1989]

const a=-3*pi/2;
      b=3*pi/2;
      dx=0.001;
var x,y,min,max:real;
begin
   x:=a-dx;
   min:=Sin(a);
   max:=Sin(a);
   Repeat
      x:=x+dx;
      y:=Sin(x);
      If y<min then
         min:=y;
      If y>max then
         max:=y;
   Until x>=b;
   Writeln(min:3:5);
   Writeln(max:3:5);
   Readln;
end.