Помогите пожалуйста составить программку:Найти наивеличайшее значение функции y=ax в

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 lt; y then max := y;
        x := x + h;
    until x gt; 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+cgt;max then max:=a*sqr(i)+b*i+c;
 writeln(max);
end.