Установить наибольшие значение функции

uses crt;
var  x,y: array [1..100] of real;
     xn,xk,h:real;
     i,imax: integer;
begin
write('Введите xn: ');               //запраштваю начальное значение
readln(xn);
write('Введите xk: ');               //конечное значение
readln(xk);
write('Введите h: ');               //и шаг
readln(h);  imax:=1;                //изначально считаю, что первый элемент массива - максимален
i:=1; x[i]:=xn; y[i]:=sin(x[i]);    //счетчик равен 1, у - гипотетической функции типа синус
repeat                              //в цикле с постусловием
    inc(i);                        //увеличиваю счетчик
    xn:=xn+h;                      //увеличиваю значение начального х на шаг
    x[i]:=xn;                      //в массив х помещаю значение х
    y[i]:=sin(x[i]);                //в массив у помещаю значение функции
    if y[i]>y[imax] then imax:=i;   //если данное значение функции больше ранее найденного, меняю индекс максимального на текущий
until xn>=xk;                       //пока не достигну конца диапазона
WriteLn('Наибольшее значение =',y[imax]:0:1,' прни х=',x[imax]:0:1);   //вывод результата
readkey
end.