Ответьте пожалуйста на 5, заранее спасибо.

//PascalABC.NET
var
   m : integer;
begin
// Зарезервируем массив [0..9] для подсчета повторов
   var a := ArrFill(10, 0);
// Запрос пользователю ввести положительное число
   repeat
       m := ReadlnInteger('Введите 0 или положительное число ')
   until m >= 0;
// Подсчет количества повторяющихся цифр
   while m > 0 do begin
       a[m mod 10] += 1;
       m := m div 10
   end;

// Найдем в массиве повторы от 2 и более раз?
   if a.FindIndex(x -> x>=2) = -1 then
// Повторов не найдено. Вывод сообщения
       writeln('Нет повторов.')
   else begin
// Повторы есть.
       write('Повторяются: ');
// Выведем повторяющиеся цифры
       for var i := 0 to 9 do
           if a[i] > 1 then write(i, ' ')
   end
end.

Ответьте пожалуйста ** 5, заранее спасибо.