Как перевести 1001 из двоичной в десятичную

число в двоичной системе = 1001

число в десятичной системе = 9

Program kursz5; //название программы uses crt; //подключение модуля crt const n=10; //определение неизменяемых переменных const m=10; var //описание переменных  i,j,max,min: integer; a: array[1..n,1..m] of integer; //(ввод)  объявление массива begin randomize; //подключение датчика случайных чисел for i: =1 to n do //ввод чисел для переменных массива  for j: =1 to m do a[i,j]: =random(100); //ввод случайных чисел max: = a[1,1]; //присвоение к max элементах [1,1] min: = a[1,1];   //присвоение к min элементах [1,1] for i: =1 to n do   //будем делать пока i < n begin for j: =1 to m do  //будем делать пока i < m begin if a[i,j] > max then   // если элемент массива больше max будем делать что ниже max: = a[i,j]; //(вывод max элемента не правильно) здесь происходит присвоение к переменной max, но никак не вывод if a[i,j] < min then   //если элемент массива меньше min будем делать следующее min: =a[i,j]; //(вывод min элемента) тоже самое, здесь присвоение к переменной min write(a[i,j]: 5);   - здесь уже вывод end; writeln;   end; writeln();   writeln('max=',max,' min=',min); //вывод max и min значений end.