while(1) rp++;

同求
while 1=1 do inc(rp);

While True do RP:=Power(RP,2);

while true do
inc(rp);