Найдите порядковый номер первого простого числа

const n=15;
var i:integer;
  a:array[1..n]of integer;
 
function prost(a:integer):boolean;
var i:integer; f:boolean;
begin
  if a<2 then
    f:=false
  else begin
    f:=true;
    i:=2;
    while (sqr(i)<=a) and f do
      if (a mod i <> 0) then
        inc(i)
      else
        f:=false; end;
  prost:=f;
end;
 
begin
  for i:=1 to n do begin
    a[i]:=random(48)+1;
    write(a[i]:3); end;
  writeln;
  
  for i:=1 to n do
    if prost(a[i]) then begin
      writeln('Индекс первого простого числа:',i);
      break; end;
end.

const n=15;
type matrix=array[1..n]of integer;
var b:matrix;
 
function prost(a:integer):boolean;
var i:integer; f:boolean;
begin
  if a<2 then
    f:=false
  else begin
    f:=true;
    i:=2;
    while (sqr(i)<=a) and f do
      if (a mod i <> 0) then
        inc(i)
      else
        f:=false; end;
  prost:=f;
end;
 
procedure opredprost(var a:matrix);
var i:integer;
begin
  for i:=1 to n do begin
    a[i]:=random(48)+1;
    write(a[i]:3); end;
  writeln;
  
  for i:=1 to n do
    if prost(a[i]) then begin
      writeln('Индекс первого простого числа:',i);
      break; end;
end;
 
begin
  opredprost(b);
end.