Вывод чисел из массива

var lox:array[1..10] of integer;
i,zzz:integer;
begin
zzz:=0;
write('Массив: ');
for i:=1 to 10 do
begin
lox[i]:=random(-40,40);
write(lox[i],' ');
end;
begin
  for i:=1 to 10 do
  zzz:=(lox[i] mod 10)
end;
writeln();
writeln('----------------------------------');
writeln('Ответ -> ',zzz);
end.

program easy;
 
const
  SIZE = 10; // Размер массива
  MIN_VALUE = -40; // Минимальное значение элемента массива
  MAX_VALUE = 40; // Максимальное значение элемента массива
 
var
  numbers: array[1..SIZE] of integer; // Объявляем массив из SIZE элементов
  i, n, count: integer;
 
begin
  count := 0; // Начальное значение счетчика равно 0
  
  // Инициализируем массив случайными числами
  randomize; // Инициализируем генератор случайных чисел
  for i := 1 to SIZE do
    numbers[i] := random(MAX_VALUE - MIN_VALUE + 1) + MIN_VALUE;
    
  // Выводим все числа в массиве
  writeln('Список случайных чисел:');
  for i := 1 to SIZE do
    writeln(numbers[i]);
 
  // Запрашиваем у пользователя цифру, на которую должны заканчиваться числа
  writeln('Введите цифру N (от 0 до 9): ');
  readln(n);
  
  // Ищем числа, заканчивающиеся на цифру N и выводим их
  writeln('Числа, заканчивающиеся на ', n, ':');
  for i := 1 to SIZE do
  begin
    if abs(numbers[i] mod 10) = n then
    begin
      writeln(numbers[i]);
      count := count + 1;
    end;
  end;
  
  // Выводим количество найденных чисел
  writeln('Найдено чисел: ', count);
  
  readln; // Ждем, пока пользователь не нажмет Enter
end.

##
  'Исходный массив:'.Println;
  var a := ArrRandomInteger(10, -40, 40).Println; //генерация массива
  var d := ReadLnInteger('Введите цифру (от 0 до 9):'); //ввод цифры
  if d in 0..9 then //если цифра, то
    begin
      $'Числа, оканчивающиеся на {d}:'.Println;
      var b := a.Where(x -> abs(x) mod 10 = d); //выбираем числа, оканчивающиеся на заданную цифру
      if b.Count > 0 then //если числа найдены, то
        begin
          b.Println; //печатаем числа
          $'Количество чисел: {b.Count}'.Println //печатаем их количество
        end
      else 'Не найдены'.PrintLn //иначе (если числа не найдены) печатаем сообщение
    end
  else 'Это не цифра'.PrintLn //иначе (если введена не цифра) печатаем сообщение

##
var N := ReadInteger('Укажите N от 0 до 9:');
var a := ArrRandom(10, -40, 40);
a.Println.Where(t -> Abs(t mod 10) = N).Println.Count.Print

##
  var n := ReadInteger('N =');
  ArrRandom(10, -40, 40).Println.Where(x -> abs(x mod 10) = n).Println.Count.Println