Табулирование функции с выводом результата по условию

Помогите пожалуйста.
Дана целочисленная функция f(k)= K^3-25K^2+50K+1000 определена только для целых значений аргумента К. Составить программу вычисления значений функции f(k) для 20 значений аргумента К в интервале (-30,60) с выводом лишь тех значений, которые удовлетворяют заданному условию, и подсчетом остальных ее значений. Задать А=30000, В=60000, М=4.
Значение f(k) не превышает ни корня квадратного из произведения А,В,М, ни суммы А+В+М, и при том не равно 250М и 1750М.
Написала программу, но она не работает выдает Type mismatch.

Вот программа:
Program Pr8;
Var Y:array[1..20] of integer;
M,A,B:real;
i,Xn,Xk,k,H,dx,S:integer;
Begin
writeln('введите А,В,М');
Readln (A,B,M);
S:=0;
Xn:=-30;
Xk:=60;
H:=20;
K:=Xn;
dX:=round((Xk-Xn)/H)+1;
For i:=1 to 20 do
Begin
Y[i]:=k*k*k-25sqr(k)+50*k+1000;
If (Y<sqrt(A*B*M) and (Y<(A+B+M) and (Y<>1750*M) and (Y<>250*M)
then Writeln('|',k:2,'|',Y);
k:=k+dX;
else
S:=S+1;
end;
Writeln('KOI=',S);
end.
Помогите пожалуйста разобраться.

0