Подскажите, как правильно написать программу:
Условие: Найдите кол-во целых чисел, лежащих в интервале -100<=n<=100, при которых дробь
(n^2-5n+6)/(2n-1) является целым числом.

Программа должна выглядеть так:

program cel;
var
k,n:integer;
j:integer;
y:real;
begin
for n:=-100 to 100 do
k:=0;
y:=(n*n-5*n+6)/(2*n-1);
j:=y;
if (j:=y) then k:=k+1;
readln(n);
writeln('Количество целых чисел=',k);
readln
end.

Я прав ?!?