Найдите минимальный делитель числа, который больше единицы - Turbo Pascal

Формулировка задачи:

Помогите исправить ошибку. Не могу сообразить. Найдите минимальный делитель числа, который больше единицы; Вот мой код:
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.

Код к задаче: «Найдите минимальный делитель числа, который больше единицы - Turbo Pascal»

textual
var n,a:integer;
begin
write('n=');
readln(n);
a:=2;
while n mod a<>0 do inc(a);
write('ГЌГ*èìåГ*ГјГёГЁГ© äåëèòåëü=',a);
readln
end.

11   голосов, оценка 3.636 из 5


СОХРАНИТЬ ССЫЛКУ