Найдите минимальный делитель числа, который больше единицы - 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.

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

Листинг программы

var n,a:integer;
begin
write('n=');
readln(n);
a:=2;
while n mod a<>0 do inc(a);
write('ГЌГ*ГЁГ¬ГҐГ*ГјГёГЁГ© Г¤ГҐГ«ГЁГІГҐГ«Гј=',a);
readln
end.

Объяснение кода листинга программы

Этот код написан на языке Turbo Pascal и выполняет следующую задачу: находит минимальный делитель числа, который больше единицы.

Объявляются две переменные: n и a, типа integer.
Выводится сообщение n= и считывается значение переменной n с помощью функции readln.
Переменная a инициализируется значением 2.
Запускается цикл while, который выполняется до тех пор, пока n не будет делиться на a без остатка.
Значение переменной a увеличивается на единицу.
Выводится сообщение Г¤ГҐГ«ГЁГІГҐГ«Гј=, а затем значение переменной a.
Выводится символ новой строки с помощью функции readln. Таким образом, данный код находит минимальный делитель числа, который больше единицы, и выводит его на экран.