Как заменить согласные буквы в тексте на 0 (pascal, не используя s[i])

Это правильно не нужны тут никакие s[i], и даже сама s не нужна. Решение в один оператор.

===== PascalABC.NET =====

begin

 ReadlnString.

    RegexReplace('(?i)[БВГДЖЗЙКЛМНПРСТФХЦЧШЩЪЬ]','0')

    .Println

end.