Помогите решить. Дан одноменрый массив А (n) Проверить, является ли его максимальный элемент простым числом.

примени
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.