РАБОТА С МАССИВАМИ

[neolanta]

Помогите исправить ошибку. Не могу сообразить.
Найдите минимальный делитель числа, который больше единицы;
Вот мой код:

PROGRAM PR;
USES CRT;
VAR N,k,min,I:INTEGER;
    A:ARRAY [1..15] OF INTEGER;
BEGIN
CLRSCR;
WRITELN('INPUT N');READLN(N);
k:=1;
FOR I:=2 TO N DO
 IF (N MOD I=0) THEN
  BEGIN
   A[I]:=I;
   k:=k+1;
   WRITELN(A[I]);
 END;
MIN:=A[1];
FOR I:=2 TO k DO
 IF A[I]<MIN 
  THEN
    BEGIN
     MIN:=A[I]; 
     WRITELN(MIN);
    END
  ELSE WRITELN(MIN);
READKEY;
END.

[Poma][a]

const
    eps = 0.0000001;
....
for i := 2 to Trunc(Sqrt(n)+eps) do
      if n mod i = 0 then begin
           WriteLn(i); Break
      end;

Можно с while, но я бы так делал

[neolanta]

Спасибо огромное!! Помогли с помощью while
var n,a:integer;
begin
write('n=');
readln(n);
a:=2;
while n mod a<>0 do inc(a);
write('Наименьший делитель=',a);
readln
end.

[Poma][a]

Точно.. Мой косяк..
Я не учел, что число может быть простым..

[neolanta]

Вы молодцы!!! А я вообще в массивы залезла.

[neolanta]

Да!!!!!!!!!!!!!!!!!!!!! Женская логика - штука сложная!!!! Спасибо огромное.