Помогите, Pascal ABC... Дано предложение. Если в этом предложении первая буква...

Question

Помогите, Pascal ABC... Дано предложение. Если в этом предложении первая буква встречается более 3 раз, заменить её на восклицательный знак. Исходный текст задать самостоятельно таким образом, чтобы решалась задача.

Answer 1

//PascalABC.NET 3.1 сборка 1239
begin
    var s := ReadlnString('s =');
    var c := s[1];
    
    if s.ToLower().ToCharArray().Count(x -> x = c) >= 3 then begin
        s := s.Replace(LowCase(c), '!');
        s := s.Replace(UpCase(c), '!');
    end;
    
    writeln(s);
end.