function pervicnoe(pr:string):longint;
pr это начало числa пример '123'. Строчки pr длина от 0 до 6 символов, и строчка неначинается с 0.
Если первичное число несуществует то тогда результат функции должен быть 0.
пример
123
результат
123001
пример
999
результат
999007
вот что написал только без функции и без string
program prostoje;
var a,b,c:longint;
begin
WriteLn('vvedite trexznacnoe cislo');
Readln(a);
a:=a*1000;
repeat
c:=0;
for b:=1 to a do
if (a mod b =0) or (a=b) then c:=c+1;
if c=2 then writeln(a);
inc(a);
until (c=2) or (a=999999);
readln;
end.
Википедия простое число