Работа с массивом - Pascal ABC

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

Задача: Есть ли элемент оканчивающийся на 3?

Program pr3;
const n = 10;
type MAS = array [1..n] of integer;
var a:MAS; i, k: integer;
begin
     randomize;
     for i:=1 to n do a[i]:= -25+random(51);
     for i:=1 to n do write(a[i]:5);
     writeln;
     for i:=1 to n do if (a[i]mod 10 = 3)  then k:=k+1;
     if (a[i] mod 10 <>3) then writeln ('Нет')
                                            else writeln ('Да');
     end.

Программа почему-то не видит просто цифры 3, а также отрицательных элементов оканчивающихся на 3.

Решение задачи: «Работа с массивом»

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

Program pr3;
const n = 10;
type MAS = array [1..n] of integer;
var a:MAS; i, k: integer;
begin
randomize;
for i:=1 to n do a[i]:= -25+random(51);
for i:=1 to n do write(a[i]:5);
writeln;
for i:=1 to n do if (a[i]mod 10 = 3) then k:=k+1;
if (k=0) then writeln ('Нет')
else writeln('Да');
End.

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

Список действий в коде:

Объявление константы n, которая равна 10. Это значение определяет размер массива.
Объявление типа данных MAS, который является массивом целых чисел размером от 1 до n.
Объявление переменных a, i и k. Переменная a будет использоваться для хранения массива, i - это цикл, используемый для обхода массива, а k - это счетчик, который будет увеличиваться, если элемент массива соответствует определенному условию.
Вставка случайного числа в каждый элемент массива. Для этого используется функция randomize, которая инициализирует генератор случайных чисел, и затем каждый элемент массива присваивается случайное число в диапазоне от -25 до 25.
Вывод каждого элемента массива на экран с помощью цикла for и команды write.
Проверка каждого элемента массива на то, делится ли он на 10 без остатка и равен ли остаток 3. Если это условие выполняется, то значение переменной k увеличивается на 1.
Проверка значения переменной k после цикла. Если k равно 0, то выводится сообщение Нет, иначе выводится сообщение Да.