дан одномерный массив А (n). Подсчитать количество простых чисел в нем (делится только на 1 и на себя) дан одномерный массив А (n).Подсчитать количество простых чисел в нем (делится только на 1 и на себя)

оформи процедурой и примени
program prostoe1;
uses crt;
var a, b: integer;
c:boolean;
begin
write ('Введите число: ');
readln (a);
c:=a>=1;
for b :=2 to a div 2 do
if a mod b = 0 then c:=false;
if c then
writeln('prostoe')
else
writeln('ne prostoe');
readln;
end.