Unit BINU;

Interface

Function BinToWord(s : String) : Word;

Function WordToBin(W : Word) : String;

Implementation

Function BinToWord(s : String) : Word;
Var
   w, i, j : Word;
Begin
w := 0;
j := 1;
For i := Length(s) downto 1 do
    Begin
    w := w + (Ord(s[i])-48) * j;
    j := j *2;
    End;
BinToWord := w;
End;

Function WordToBin(W : Word) : String;
Var
   s : String;
   i,j,k: Word;
Begin
k := 1;
s := '';
For i := $0 to $f Do
    begin
    If (W and k) > 0 Then
       s := '1' + s
    Else
        s := '0' + s;
    k := k * 2;
    End;
WordToBin := s;
End;

End.