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

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

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

begin

 ReadlnString.

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

    .Println

end.

Поле - набор программных инструкций, служащих для автоматической вставки в документ текста, графических элементов, номеров страниц, формул, функций и других элементов.

Границы -  существуют для придания в Word материалу выразительности. Такой инструмент можно добавлять, как на страницу, так и в напечатанный материал или в определенные его части, включая графические объекты.

Колонтитулы -  это текст и изображения размещаемые на страницах документа, не относящиеся к основному тексту, а носят информационный и оформительский характер. При правильном использовании вы сможете оформить документ который останется только отправить на печать.

Держи❤️

Объяснение:

const

 n=5; m=6;

var

 a:array [1..n,1..m] of integer;

 b:array of integer;

 i,j:integer;

begin

 setlength(b,0); //пустой динамический массив  

 for i:=1 to n do

   begin

     for j:=1 to m do

       begin

         a[i,j]:=random(41)-20;

         write(a[i,j]:4);

         //

         //Если выполняется условие, то

         //расширяем массив b на ячейку, и

         //в неё записываем значение.

         if a[i,j]<0 then

           begin

             setlength(b,length(b)+1);

             b[length(b)-1]:=a[i,j];

           end;

         //

       end;

     writeln;

   end;

  writeln;

  //

  //Вывод результата

  for i:=0 to length(b)-1 do

   write(b[i]:4);

end.