Паскаль

[Fouraces]

Помогите , плз((


На паскале надо пронумеровать простые числа (1-500) т.е. найти первые 500 простых чисел и задать им номера от 1 до 500, а затем в зависимости от введённого числа (1-500) вывести простое.

Нахождение простых чисел затрудения не вызывает, а вот присвоение номеров и вывод -- проблема.

Заранее спасибо)

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

var
a:array[1..500] of integer;
k:integer;
....
begin
...
k:=0
if нашли простое число then
begin
k:=k+1;
a[k]:=простое число;
end;
....
{вывод}
readln(номер);
writeln(a[номер]);
...
end.

[russian-stalker]

Вот считает все простые числа от 1 до 500, помещает их в массив и после этого спрашивает какой по счёту вывести.

program Project2;
var
i,k,z:integer;
a:array[1..500] of integer;
begin
  z:=1;
  a[1]:=1;
  for i:=2 to 500 do
  begin
    for k:=2 to i-1 do
    if i mod k=0 then
    break else
    if k=i-1 then
    begin
    inc(z);
    a[z]:=i;
    end;
  end;
  readln(i);
  writeln(a[i]);
  readln;
end.

Upd:
Блин да что я вечно опаздываю

[Fouraces]

Спасибо всем