algoritmo de binario a decimal

Bueno como dice el titulo este algoritmo debería convertir los binarios a decimal

Algoritmo tranformador_bin_a_deX;
Tipos
Cad_bin:Cadena[30];
Variables
decimal,F,ser,P:Entero;
Inicio
Escribirln("ingrese numero binario a convertir en decimal";
Leer(C);
decimal=0;
F= Length(c);
ser=1;
Para P=1 hasta length(c) hacer
Inicio
Si (C[f]=`1`) entonces
decimal=decimal+ser;
F=F-1;
ser=ser*2;
Fin;
Escribir("Su numero binari",c,"= al numero decimal", decimal);
Fin.