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

var x,y,a,b,h,min,max:real; i:integer;
begin
readln(a,b,h);
x:=a; y:=2*x*x-0.5*x+5;
min:=y; max:=y;
 writeln(x:4:1,' ',y:6:2);
for i:=1 to round((b-a)/h) do
 begin
 x:=x+h;
 y:=2*x*x-0.5*x+5;
 writeln(x:4:1,' ',y:6:2);
 if y<min then min:=y;
 if y>max then max:=y;
 end;
writeln('min = ',min:6:2,' max = ',max:6:2);
end.

Пример:
-2 2 0.5
-2.014.00
-1.510.25
-1.07.50
-0.55.75
 0.05.00
 0.55.25
 1.06.50
 1.58.75
 2.012.00
min =5.00 max =14.00