Перевод из одной системы в другую

[АришаЯ]

'4': d[i]:=4;
'5': d[i]:=5;
'6': d[i]:=6;
'7': d[i]:=7;
'8': d[i]:=8;
'9': d[i]:=9;
'a': d[i]:=10;
'b': d[i]:=11;
'c': d[i]:=12;
'd': d[i]:=13;
'e': d[i]:=14;
'f': d[i]:=15;
end;
chislo:=d[i]*(exp(ln(16)*(i-1)));
end;
write(s);
write(' = ',chislo:10:2);
end;

[АришаЯ]

var i:byte;
begin
k:=ord(s[0]);
for i:=1 to k do
begin
case s[i] of
'0'[i]:=0;
'1'[i]:=1;
'2'[i]:=2;
'3'[i]:=3;
'4'[i]:=4;

[АришаЯ]

'5'[i]:=5;
'6': d[i]:=6;
'7': d[i]:=7;
'8': d[i]:=8;
'9': d[i]:=9;
'a': d[i]:=10;
'b': d[i]:=11;
'c': d[i]:=12;
'd': d[i]:=13;
'e': d[i]:=14;
'f': d[i]:=15;
end;
chislo:=d[i]*(exp(ln(16)*(i-1)));
end;

procedure toDop(Inp:string; var Dop:integer);
var n,P,err:integer;
fl:boolean;
Uns:string;
begin
Uns:='';
Dop:=0;
fl:=false;
if(Inp[1]='-')then
begin
Delete(Inp,1,1);
fl:=true;
end;
for n:=length(Inp) downto 1 do Uns:=Uns+Inp[n];
for n:=0 to length(Uns)-1 do
begin
Val(Uns[n+1],P,Err);
if(err<>0)then P:=9+Pos(Uns[n+1],Hex);
Dop:=Dec+P*round(exp(n*ln(16)));
end;
if(fl)then Dop:=Dop*(-1);
end;

Begin
writeln('Enter way to file:');
readln(Way);
assign(F,Way);
reset(F);
Read(F,Init);
writeln(' Выбирете действие: 10,2,дополнительный код(d)?');
readln(Act);
Begin
case Act of
10: ten( ) {Вызов процедуры перевод в десятичную систему счисления}
2: two(){Вызов процедуры перевод в двоичную систему счисления}

d: toDop();{Вызов процедуры дополнительного кода}
else;
writeln(‘Неверное действие’);
End.

[АришаЯ]

не понимала почему отправлять не хочет,оказалось он читает символы как смайл