Дан одномерный массив. Запишите верный ответ

Индекс элемента массива - 0.

program todec;

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

function pow(x,y: integer): integer; begin      if y> 0 then pow: =pow(x,y-1)*x                else pow: =1; end; function todec(a : string) : integer; var l : byte; begin      if a = '' then todec : = 0                else begin                              l : = length(a);                                 case a[1] of                                      '0' : todec : = todec(copy(a, 2, l - 1));                                       '1' : todec : = pow(2, l - 1) + todec(copy(a, 2, l - 1));                                 end;       end; end; begin      clrscr;       write('введите двоичное число: ');       readln(s);       writeln('это число в десятичной системе : ', todec(s));   readkey; end.