Забыл отписаться...., всё готово. Находит то что мне нужно.
Program resheto;
uses crt;
const
n = 999999; { Это можно и уменьшить, взят граничный случай}
var
a: array[1 .. n] of longint; {создаём массив от 1 до 999999 }
i, j, s, count: longint;
begin
for i := 1 to n do a
:= i; {заполняем массив }
a[1] := 0;
for s := 2 to pred do begin
if a <> 0 then begin
j := s * 2;
while j < n do begin
a[j] := 0;
j := j + s;
end;
end;
end;
count := 0;
i := 100000;
while count < 26 do begin
if a > 0 then inc(count);
inc(i);
end;
writeln(a[i - 1]);
end.