В числовую переменную последовательно вводятся целые числа, не равные нулю. кол-во вводимых чисел n неизвестно. Найти сумму тех чисел, в которых встречаются ровно две цифры 5.(в паскале написать программу)

//PascalABC.NET версия 3.2, сборка 1367
begin
    var sum := 0;
    for var i := 1 to ReadInteger(n=) do
    begin
        var num := ReadInteger(Введите число =);
        if num.ToString().ToCharArray.Count(c -> c = 5) = 2 then
            sum += num;
    end;
    Writeln(sum);
end.