Программа для вычисления простых чисел

program z;
var i,n,b,k:integer;
a:array [1..100] of integer;
procedure task(a1:integer; var b1,k1:integer);
     var i1:integer;
     begin
          k1:=0;
          for i1:=1 to a1 do
              begin
                   if a1 mod i1=0
                      then
                          k1:=k1+1;
 
              end;
              if k1=2
                 then
                     b1:=a1;
     end;
begin
     writeln('Введите кол-во элементов вектора');
     readln(n);
     randomize;
     for i:=1 to n do
         a[i]:=trunc(15-(-15)*random+(-15));
     writeln('Случайный вектор');
     for i:=1 to n do
         write(a[i],' ');
     writeln;
     writeln('Простые числа в векторе:');
     i:=0;
     repeat
           i:=i+1;
           task(a[i],b,k);
           if k=2
              then
                  write(b,' ');
     until i=n;
end.