Сверхпростые числа

[Nellas]

Задача "Сверхпростые числа"
Простым числом называется натуральное число, большее еденицы и делящееся только на единицу и на само себя.Впишем все простые числа в порядке возврастания и пронумеруем их. Первым простым числом будет - 2, вторым - 3, третьим - 5 и так далее.
Будем называть сверхпростые числа, имеющие номера, также являющиеся простыми числами.
Напишите программу, которая по введенному числу K будет находить K-ое по величине сверхпростое число.

Вводится одно натуральное число К(1<K<500), выводиться одно число К-ое по величине сверхпростое число.

[ОДИНОЧЕСТВО В СЕТИ]

uses crt;
function Pr(n:longint):boolean;
var i:longint;
begin
if n<2 then Pr:=false
else
 begin
  Pr:=true;
  for i:=2 to round(sqrt(n)) do
  if n mod i=0 then
   begin
    Pr:=false;
    break;
   end;
 end;
end;
var k,p,q:integer;
    i:longint;
begin
clrscr;
repeat
write('Введите число от 1 до 500 k=');
readln(k);
until(k>=1)and(k<=500);
i:=0;p:=0;q:=0;
while q<k do
 begin
  i:=i+1;
  if Pr(i)then p:=p+1;
  if Pr(p) and Pr(i) then q:=q+1;
 end;
write('p=',p,'  q=',q,'  Pk=',i);
readln
end.

[Nellas]

Спасибо, а можно это на делфи под нет переделать?

[Nellas]

на паскале написал все отлично)) спасибо)