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

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

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