Определить местоположение минимального элемента, кратного 3 - Pascal ABC

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

Массив заполняется значениями от -10 до 10 ,кол-во элементов задаётся с клавиатуры. Определить местоположение минимального элемента,кратного 3 или вывести сообщение о отсутствии такого. Программа написана, но не всегда правильно работает,помогите исправить,пожалуйста.

program abc;
var a:array [1..1000] of integer;
k,n,i,min:integer;
begin
writeln('введите количество элементов');
readln(n);
k:=0;
min:=10;
writeln('исходный:');
for i:=1 to n do begin
a[i]:=random(20)-10;
write(a[i]:4);
end;
writeln;
for i:= 1 to n do begin
if (a[i]<min) and(a[i]mod 3=0)
then
k:=i;
min:=a[i];
end;
if k=0 then writeln (' нет такого числа')
else writeln('  номер наименьшего кратного 3= ',k);
end.

Решение задачи: «Определить местоположение минимального элемента, кратного 3»

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

program abc;
var a:array [1..1000] of integer;
    k,n,i,min:integer;
begin
write('введите количество элементов n=');
readln(n);
writeln('исходный:');
k:=0;
for i:=1 to n do
 begin
  a[i]:=-10+random(21);
  write(a[i]:4);
  if a[i] mod 3=0 then
   begin
    if k=0 then
     begin
      min:=i;
      k:=1;
     end
    else if a[i]<a[min] then min:=i;
   end;
 end;
writeln;
if k=0 then writeln ('Числа, кратного 3 нет')
else writeln('Номер наименьшего кратного 3=',min,' его значение=',a[min] );
end.

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

В данном коде происходит следующее:

Создается переменная a, которая представляет собой массив целых чисел размером от 1 до 1000.
Задается переменная n, которая представляет собой количество элементов в массиве a.
Задаются переменные k, n, i и min, которые будут использоваться в цикле.
Выводится сообщение с просьбой ввести количество элементов n.
Выводится сообщение «исходный:», чтобы пользователь понимал, что будет происходить дальше.
Запускается цикл for, который выполняется от 1 до n.
Внутри цикла генерируется случайное число от -10 до 20 (включительно) и присваивается переменной a[i].
Выводится значение a[i] с помощью функции write.
Проверяется, делится ли значение a[i] на 3 без остатка. Если да, то выполняются следующие действия:
- Если k равно 0, то начинается новый блок кода.
- Если k не равно 0, то проверяется, является ли значение a[i] меньше значения a[min]. Если да, то min обновляется значением i.
После завершения цикла выводится сообщение, которое зависит от значения k:
- Если k равно 0, выводится сообщение «Числа, кратного 3 нет».
- Если k не равно 0, выводится сообщение «Номер наименьшего кратного 3=», за которым следует значение min и a[min].