модуль с двоичной системой счисления

[MishanyaZWER]

помогите откомпилировать модуль, ПЛИЗ!!!

Unit dvoich;
interface
procedure vvod_dvoichn (var chislo:string);
function iz_dv_v_des (chislo:string):string;
function iz_des_v_dv (chislo:string):string;
function ymnozh (chislo_1,chislo_2:string):string;
function summa (chislo_1,chislo_2:string):string;
function vihet (chislo_1,chislo_2:string):string;
procedure vvivod_chisla (var chislo:string);
implementation
 procedure vvod_dvoich (var chislo:string);
 var
 i,k:longint;
 begin
  repeat
  k:=0;
  write('vvedite chislo v 2-i sisteme');
  readln(chislo);
  for i:=1 to length(chislo) do
  if not (chislo[i] in ['0'..'1']) then writeln(chislo);
  until k=1;
  end;
 function iz_dv_v_des (chislo:string):string;
 var
 r:longint;
 i:byte;
 begin
  r:=0;
  for i:=1 to length(chislo) do
  r:=r+chislo[i]*exp((length(chislo)-i)*ln(2));
  end;
 function iz_des_v_dv (chislo:string):string;
 var
  r:longint;
  i:byte;
  begin
   r:=0;
   repeat
   until(r>0);
   while r>0 do
   begin
    if r mod 2 = 0 then
    chislo:=chislo+'0' else
    begin
     chislo:=chislo+'1';
     r:=r-1;
     end;
    r:=r div 2;
   end;
  for i:= length(chislo) downto 1 do
  write(chislo[i]);
  end;
 function ymnozh(chislo_1,chislo_2:string):string;
 var
 ch_1,ch_2,proizv:longint;
 begin
  ch_1:=iz_dv_v_des(length(chislo_1));
  ch-2:=iz_dv_v_des(length(chislo_2));
  proizv:=ch_1*ch_2;
  proizv:=iz_des_v_dv(proizv);
 end;
 function summa(chislo_1,chislo_2:string):string;
 var
 ch_1,ch_2,summ:longint;
 begin
  ch_1:=iz_dv_v_des(length(chislo_1));
  ch_2:=iz_dv_v_des(length(chislo_2));
  summ:=ch_1+ch_2;
  summ:=iz_des_v_dv(summ);
  end;
 function vichet(chislo_1,chislo_2:string):string;
 var
 ch_1,ch_2,razn:longint;
 begin
  ch_1:=iz_dv_v_des(length(chislo_1));
  ch_2:=iz_dv_v_des(length(chislo_2));
  razn:=ch_1-ch_2;
  razn:=iz_des_v_dv(razn);
 end;
 procedure vvivod_chisla(var chislo:string);
 begin
  writeln(chislo);
  end;
begin
end.

[Arigato]

Сообщение от MishanyaZWER

помогите откомпилировать модуль, ПЛИЗ!!!

Отдельный модуль нельзя откомпилировать.

[MishanyaZWER]

мне ошибки исправить, он в паскале жалуется на

r:=r+chislo[i]*exp((length(chislo)-i)*ln(2));

типо несоответствие типов

[Stilet]

Правильно жалеутся
Может тебе нужно

r:=r+ord(chislo[i])*exp((length(chislo)-i)*ln(2));

Или если цифра числа то процедурой val переводи в integer chislo[i], а уж потом его используй в выражении.

[MishanyaZWER]

А вцелом модуль правильно написан?