Написать программу для перевода из восьмиразрядного двоичного числа в десятичное

program 1;
uses crt;
var n,m:real;
 
  
procedure vvodm(var y: array of integer);
var j:integer;
  begin
  writeln('vvedite chislo(0) ili (1)');
  for j:=1 to 8 do
  readln(y[j]);
  end;
 
 
procedure decim(var x:integer; y: array of integer);
 var j,k:integer;
  begin
  k:=128;
  x:=0;
  for j:=1 to 8 do
   begin
   x:=x+k*y[j];
   k:=k div 2;
   end;
  end;
 
begin
 clrscr;
  writeln('vvodim m:');
 readln(m);
 writeln('desyatichnoe ravno:',n);
 readln(n);
end.

program preobrazovanie;    //имя программы начинаться с цифры не может
          //а лучше использовать имя, передающее смысл всей программы
          
uses crt;
 
procedure vvodm(var y: array [1..8] of integer);  //процедура
var j:integer;                             //записывает двоичное число
  begin                                    //в массив
  writeln('vvedite chislo(0) ili (1)');
  for j:=1 to 8 do
  readln(y[j]);
  end;
 
procedure decim(var x:integer; y: array [1..8] of integer);    //процедура
 var j,k:integer;                   //переводит двоичное число в десятичное
 begin
 k:=128;
 x:=0;
 for j:=1 to 8 do
   begin
   x:=x+k*y[j];
   k:=k div 2;
   end;
end;
  
var y: array [1..8] of integer; //объявляем переменные основной программы
    x: integer;
begin                       // начало основной программы
vvodm(y);  //обращаемся к процедуре vvodm, ктороая записывает двоичное число
decim(x,y);//обращаемся к проц. которая переводит двоичное в десятичное
writeln;
writeln('desyatichnoe ravno:',x); //выводим результат
end.    //конец