参考一下水水的代码：

var n,k:qword;
begin
readln(n);
k:=n-1;
while (n div k)*k<>n do dec(k);
writeln(k);
end.

经核实数据没有错哦。
我看了一下你的代码。。
要注意你是从sqrt(n)开始寻找较大的那个素数。
但是较大的那个素数不可能比sqrt(n)要大。