Ошибка в коде

function pow16(m: byte):integer;
var i: byte;
begin
pow16 := 1;
for i := 1 to m do
pow16 := pow16 * 16;
end;

begin
write('Hexadecimal: ');
readln(hexa);

n := length(hexa);

decimal := 0;
m := n;
for i:=1 to n do begin
ch := hexa;
if ch in ['A'..'F'] then
case ch of
'A': digit := 10;
'B': digit := 11;
'C': digit := 12;
'D': digit := 13;
'E': digit := 14;
'F': digit := 15
end
else
digit := ord(ch) - ord('0');
m := m - 1;
decimal := decimal + digit * pow16(m);
end;

writeln('Decimal: ',decimal);

readln
end.

В рядку pow16 := pow16 * 16; показує ошибка 88 не розумію чому?

і ще одна помилка readln(hexa); код 3