Найти, есть ли в массиве простые числа - Turbo Pascal

Формулировка задачи:

Писал код для одного из участников форума. В результате ошибка: Program7.pas(5) : Тип параметра или возвращаемого значения не может быть описанием записи или описанием массива с границами. Код прилагаю. Пожалуйста, помогите разобраться.

                    Листинг программы
                
 
                        
                          
                    
program prime;
uses crt;
const n = 10;
var i:integer; a:array [1..n] of integer; res:boolean;
function pri(a:array[1..n] of integer):boolean;
var i,k:integer; res:boolean;
begin
for i:=1 to n do
begin
for k:=1 to a[n] do
begin
if a[i] mod k = 0
then res:=false
else res:=true;
end;
end;
end;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(100);
end;
for i:=1 to n do begin
res:=pri(a);
if res=true then writeln (a[i]);
end;
readln;
end.

Решение задачи: «Найти, есть ли в массиве простые числа»

Листинг программы

program prime;
 
const
  n = 10;
type
  arr = array [1..n] of integer;
var
  i: integer;
  a: arr;
  res: boolean;
 
  function pri(a: integer): boolean;
  var
    k: integer;
    res: boolean;
  begin
    res := True;
    for k := 2 to a - 1 do
    begin
      if a mod k = 0 then
        res := False;
    end;
    pri := res;
  end;
 
begin
  Randomize;
  for i := 1 to n do
  begin
    a[i] := random(100);
    Write(a[i]: 4);
  end;
  writeln;
  for i := 1 to n do
  begin
    res := pri(a[i]);
    if res then
      writeln(a[i]);
  end;
end.

Объяснение кода листинга программы

Этот код написан на Turbo Pascal и предназначен для поиска простых чисел в массиве из 10 чисел, случайно выбранных из диапазона от 1 до 100. В программе объявлены следующие переменные:

n - константа, равная 10, количество чисел в массиве;
arr - массив целых чисел, в котором будут храниться случайно выбранные числа;
i - переменная для итерации по элементам массива;
a - переменная, ссылающаяся на текущий элемент массива;
res - логическая переменная, значение которой будет указывать, является ли текущий элемент массива простым числом;
pri - рекурсивная функция, которая проверяет, является ли число простым. В начале программы генератор случайных чисел инициализируется функцией Randomize. Затем происходит итерация по 10 элементам массива, каждый из которых случайно выбирается из диапазона от 1 до 100 и записывается в соответствующий элемент массива. Далее происходит итерация по каждому элементу массива. Для каждого элемента вызывается рекурсивная функция pri, которая проверяет, является ли число простым. Если число простое, то оно выводится на экран. Таким образом, программа проверяет все 10 элементов массива на простоту и выводит на экран все простые числа, если они есть в массиве.