Pascal Syntax/Program For Convert Biner to Decimal

berikut ini dalah program untuk mengonkersi bilangan biner ke bilangan desimal.

program biner;
uses wincrt;
var
i,n,hasil,j,k,konstanta:integer;
Data:array[1..5]of integer;
begin
hasil:=0;
konstanta:=1;
writeln('');

writeln(' *****program konverter bilangan biner ke desimal*****') ;
writeln(' ');
writeln('masukkan jumlah digit bilangan biner diinginkan??');
readln(n);

if(n<10) then begin writeln ('masukan data (pisahkan dengan spasi!!)'); for i:= 1 to n do begin read(Data[i]); end; j:=n; while(j>0) do
begin


hasil:=hasil+Data[j]*konstanta;
konstanta:=konstanta*2;

j:=j-1;

end;
writeln('');
writeln('hasil dalam desimal= ',hasil);
writeln('');
end
else begin

writeln('inputan salah');
end;

end.