Задача с массивом(help)

[sezem]

Вводится размер одномерного массива A(N) и его элементы. Вывести на экран максимальное значение среди простых чисел массива.

Помогите пожалуйста написать

[Stilet]

Ну навскидку...

var a:array[1..1000] of integer;max,i:integer;
begin
 for i:=1 to 1000 do begin
  readln(a[i]);
  IF (a[i] простое)and(a[i]>max) then max:=a[i];
 end;
 writeln(max);
end.

[DM_bite]

program Xz;
function Simple(n: integer):boolean;
var i: integer;
    begin
    for i:= 2 to (n div 2) do
     begin
     if n mod i = 0 then Simple:= false
     else Simple:=true;
     end;
     end;
     const n=10;
     var i,max: integer;
      a: array [1..n] of integer;
    begin
     max:= 1;
     for i:= 1 to n do
      begin
      ReadLn(a[i]);
      end;
      for i:= 1 to n do
       begin
        if simple(a[i]) then
         begin
         if a[i]>max then max:= a[i];
         end;
         end;
         WriteLn(max);
         ReadLn;
     ReadLn;
     end.

[sezem]

Сообщение от Stilet

a[i] простое

а как его обозначить то?

[Stilet]

А чем отличаются простые числа?

[sezem]

Stilet,они делятся только сами на себя и на единицу

[Stilet]

Stilet,они делятся только сами на себя и на единицу

Я знаю... Я тебя хотел подтолкнуть к решению:
Здесь
http://ru.wikipedia.org/wiki/Простые_числа
В "Некоторые свойства" найдеш нужное условие, его и примени.

[sezem]

Я так понимаю я там это

когда (p - 1)! + 1 делится на p

должен был увидеть?У меня собстно проблема в том что написать программу которая их находит не проблема,а вот объединить вместе чтобы она выбирала из простых максимальное не могу

[sezem]

Вот че у меня получается,где грабли?

USES CRT;
VAR
A:ARRAY [1..20] OF INTEGER;
I,X,K,C,N,MAX:INTEGER;
BEGIN
CLRSCR;
WRITE ('N=');
READLN (N);
FOR I:=1 TO N DO
READLN (X);
BEGIN
K:=0;
FOR C:=1 TO X DO
IF X MOD C=0 THEN A[I]:=X;
IF (A[I]=X) AND (A[I]>MAX) THEN MAX:=A[I];
END;
WRITELN ('MAXSIMALNOE PROSTOE= ',MAX);
READKEY
END.

[sezem]

Ребяяят,помогите пожалуйста,я нуб нубом и ничего не понимаю:'(А завтра экз...(((
Не баньте плиз,я читал правила,правда оч надо...