Вывести три неповторяющихся элемента массива и их номера - PascalABC.NET

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

необходимо, чтобы программа выводила три НЕПОВТОРЯЮЩИХСЯ элемента массива и их номера Что нужно поправить?

                    Листинг программы
                
 
                        
                          
                    
const n=5;
var a:Array[1..n] of integer; 
i,min1,min2,min3,k1,k2,k3:integer;
begin 
for i:=1 to n do begin
read(a[i]);
write(a[i],' ');
end;
min1:=1001;min2:=1001;min3:=1001;
k1:=0;k2:=0;k3:=0;
for i:=1 to n do begin
if a[i]< min1 then begin min2:=min1;min1:=a[i];k2:=k1; k1:=i; end else
if a[i]< min2 then begin min3:=min2;min2:=a[i];k3:=k2;k2:=i; end else
if a[i]< min3 then begin min3:=a[i];k3:=i;end;
end;
writeln;
write(min1,' ',min2,' ',min3);
writeln;
write(k1,' ',k2,' ',k3);
end.

Решение задачи: «Вывести три неповторяющихся элемента массива и их номера»

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

if a[i]< min1 then begin min2:=min1;min1:=a[i];k2:=k1; k1:=i; end else
if (a[i]< min2) and (a[i] > min1) then begin min3:=min2;min2:=a[i];k3:=k2;k2:=i; end else
if (a[i]< min3) and (a[i] > min2) then begin min3:=a[i];k3:=i;end;

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

В данном коде выполняется поиск трех минимальных элементов массива a.

Переменная min1 инициализируется значением первого элемента массива a.
Переменная min2 инициализируется значением второго элемента массива a.
Переменная min3 инициализируется значением третьего элемента массива a.
Переменные k1, k2 и k3 используются для сохранения номеров найденных минимальных элементов.
В цикле происходит сравнение каждого элемента массива a с значениями переменных min1, min2 и min3.
Если текущий элемент меньше значения переменной min1, то значение переменной min2 присваивается значение переменной min1, а значение переменной min1 присваивается значение текущего элемента. Также, значение переменной k1 присваивается значение i.
Если текущий элемент меньше значения переменной min2 и больше значения переменной min1, то значение переменной min3 присваивается значение переменной min2, а значение переменной min2 присваивается значение текущего элемента. Также, значение переменной k2 присваивается значение i.
Если текущий элемент меньше значения переменной min3 и больше значения переменной min2, то значение переменной min3 присваивается значение текущего элемента. Также, значение переменной k3 присваивается значение i.
После завершения цикла, в переменной min1 будет храниться наименьший элемент массива a, в переменной min2 - второй наименьший элемент, и в переменной min3 - третий наименьший элемент. В переменной k1 будет храниться номер первого минимального элемента, в переменной k2 - номер второго минимального элемента, и в переменной k3 - номер третьего минимального элемента.