Помогите пожалуйста!!!! Нужно сделать программу перевода чисел из 8-ой системы счисления в 2-ую систему счисления...На Pascal

function f8t2(s8:string):string; const   m:array['0'..'7'] of string=       ('000','001','010','011','100','101','110','111');   m1:array['1'..'7'] of string=       ('1','10','11','100','101','110','111'); var   s:string;   i:integer; begin   s:=m1[s8[1]];   for i:=2 to Length(s8) do s:=s+m[s8[i]];   f8t2:=s end; var   s:string; begin   Write('Введите восьмеричное число: '); Readln(s);   Writeln('В двоичной системе: ',f8t2(s)) end. Тестовое решение: Введите восьмеричное число: 15740 В двоичной системе: 1101111100000