Составить программу вывода на экран индексов элементов одномерного массива B(N), значения которых суть простые числа — Pascal(Паскаль)

uses crt;
function Prost(a:word):boolean;
var i:word;
begin
for i:=2 to round(sqrt(a)) do
if a mod i=0 then Prost:=false;
end;
const max=100;
var b:array[1..max] of word;
    n,i:byte;
begin
clrscr;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  b[i]:=random(50)+1;
  write(b[i],' ');
 end;
writeln;
writeln;
writeln('Индексы элементов, простых чисел');
for i:=1 to n do
if Prost(b[i])then write(i,' ');
readln
end.