найти простое шестизначное число, но тип string Опции

[maksimla]

Задание напишите функцию которая нашла бы хотябы один любой шестизначное простое число. функции запись

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.

Википедия простое число