Помогите пожалуйста помогите решить задачку по Паскалю. ПОЖАЛУЙСТА!!!!СРОЧНО!!!!

Как-то так: {Функция вычисления количества простых элементов целого массива На вход подается сам масссив и количество его элементов. Лучше описать тип такого массива в разделе type, а в заголовке функции поставить его имя} Function FindOutSimpleElemCount(arr: array[0, n-1] of integer; n: integer): integer; Var i, j: integer: {счетчики} seCount: integer; {количество простых элементов} Begin seCount := 0; for i := 0 to (n-1) do for j := 2 to trunc(arr[ i ]/2) do if (arr[ i ] mod j = 0) then break else if (j = trunc(arr[ i ]/2)) then seCount := seCount + 1; FindOutSimpleElemCount := seCount; End;