Найдите ошибку в программе. Надо вычислить сумму квадратов простых чисел Лежащих от N до M

program z0Ro_4;
var n,d,m:longint;
function f(x:longint):longint;
var c,i: longint;
begin
c:=0;
for i:=2 to (x-1) do
if (x mod i) = 0 then inc(c);
if c = 0 then f:=x*x
end;
begin
readln(n);
readln(m);
d:=0;
while n