Для селектора в виде атрибута [type] задать свойство цвета со значением white повысить специфичность
для селектора в виде тега button и атрибута [type="reset"] задай свойство color со значением red

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Двоичное число:');
  if s.MatchValues('[^01]').Count>0 then Writeln('Не двоичное число')
  else begin
    var (n,k):=(BigInteger(0),BigInteger(1));
    for var i:=s.Length downto 1 do begin
      if s[i]='1' then n+=k;
      k*=2
      end;
    Writeln('Десятичное значение: '+n.ToString)
    end
end.

Примеры
Двоичное число: 10101010101111110100010101010101010101010110101010101
Десятичное значение: 6007631318265173

Двоичное число: 11110101010101010010010101010110101011011110100000110100100101010101010101010101010101101010101011010101010101010101010101011111111111110101001010000001010101011111010010101
Десятичное значение: 11473727937279925775504671485025665850663901141319317

Program mass;
uses crt;
var 
x:array [1..100, 1..100] of integer;
i,j,n,m:integer;
begin
clrscr;
write ('Количество строк: ');
readln (n);
write('Количество столбцов: ');
readln (m);
for i:=1 to n do
for j:=1 to m do
begin
write('Введите элемент ' ,i,j,' матрицы:');
readln(x[i,j]);
end;
for i:=1 to N do
begin
for j:=1 to M do
write (' ',x[i,j]:3);
writeln;
end;

for i:=1 to n do
for j:=1 to m do
begin
if (i <> j) then
x[i,j]:=0;
end;
writeln;
for i:=1 to N do
begin
for j:=1 to M do
write (' ',x[i,j]:3);
writeln;
end;
readln;
end.