Вывести на экран через запятую те элементы массива, в записи которых есть цифра 5 - Pascal ABC

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

дан массив n=10 целых чисел элементы массива генерируются случ.образом из отрезка от 0 до 1000. вывести на экран через запятую те элементы,в записи которых есть цифра 5

Решение задачи: «Вывести на экран через запятую те элементы массива, в записи которых есть цифра 5»

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

const n=10;
var a:array[1..n] of integer;
    x,i,k:integer;
begin
randomize;
writeln('Массив');
for i:=1 to n do
 begin
  a[i]:=random(1001);
  write(a[i]:5);
 end;
writeln;
writeln('Элементы в которых есть цифра 5');
k:=0;
for i:=1 to n do
if a[i]>4 then
 begin
  x:=a[i];
  while (x>0)and(x mod 10<>5) do x:=x div 10;
  if x>0 then
   begin
    write(a[i],',');
    k:=1;
   end;
 end;
if k=0 then write('таких элементов нет')
end.

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

Объявляются переменные: n, a, x, i, k типа integer.
Инициализируется генератор случайных чисел.
Задаётся начальное значение переменной k равное 0.
Выводится на экран объявление массива.
Заполняются элементы массива случайными числами от 1 до 1000.
Выводится на экран заполненный массив.
Начальное значение переменной k обновляется.
Перебираются элементы массива.
Если элемент больше 4, то проверяется наличие цифры 5 в его разрядах.
Если цифра 5 присутствует, то элемент выводится на экран через запятую, а значение переменной k изменяется на 1.
Если после цикла значение переменной k осталось равным 0, то выводится сообщение об отсутствии элементов с цифрой 5.