Строки Паскаль

[Antonio_getscool]

12. Дана строка, изображающая двоичную запись целого положительного числа. Вывести строку, изображающую десятичную запись этого же числа.

[Андрей.12]

Uses crt;
var s:string;
n,l,i:integer;

Function Stepen(x,y:integer):integer;
begin if y>0 then stepen:=stepen(x,y-1)*x
else stepen:=1;
end;

Function Transl(A : String) : Integer;
Var L : Byte;
Begin
If A = ''
Then Transl := 0
Else Begin
L := length(A);
Case A[1] Of
'0' : Transl := Transl(Copy(A, 2, L - 1));
'1' : Transl := Stepen(2, L - 1) + Transl(Copy(A, 2, L - 1));
End
End
End;

BEGIN

clrscr;
write('Введите двоичное число N= ');
readln(s);
writeln('Десятичное число N= ', Transl(S));
readln;
end.