Помогите пожалуйста составить программу:
Найти наибольшее значение функции y=ax в квадрате+bx+c на отрезке [x1,x2]

var    y, a, b, c, x, x2, h, max: real;begin    write('Введите a,b,c');    readln(a, b, c);    write('Введите x1,x2 и шаг');    readln(x, x2, h);        max := a * x * x + b * x + c;    repeat        y := a * x * x + b * x + c;        if max < y then max := y;        x := x + h;    until x > x2;        writeln(max);end.

Var i,max,x1,x2,a,b,c:integer;begin read(x1,x2,a,b,c); max:=-2147483648; for i:=x1 to x2 do if a*sqr(i)+b*i+c>max then max:=a*sqr(i)+b*i+c; writeln(max);end.