Pascal/Turbo Pascal - Problemita

Hola quisiera saber como resolver este ejercicio sin utilizar facilidades del turbo pascal
La letra es la siguiente:

Escriba una función llamada conv que convierta un arreglo de caracteres, cada uno de los cuales contiene un dígito decimal, al entero equivalente.
Por ejemplo, si el parámetro de entrada es [ `1′, `2′, `3′ ], entonces el entero resultante será 123. El largo del arreglo es dado por una constante N global a la función.

Gracias.-

Aquí tienes Marcelo. Un abrazo!

program chrtoint;
const
max = 3;

type
TArreglo = array[1..max] of char;

function conv(A : TArreglo) : integer;
var
i : byte;
num : integer;
factor : integer;
valor : byte;
begin
num:=0;
factor:=1;
for i:=max downto 1 do
begin
case A[i] of
'0' : valor:=0;
'1' : valor:=1;
'2' : valor:=2;
'3' : valor:=3;
'4' : valor:=4;
'5' : valor:=5;
'6' : valor:=6;
'7' : valor:=7;
'8' : valor:=8;
'9' : valor:=9;
end;
num:=num + (valor * factor);
factor:=factor * 10;
end;
conv:=num;
end;

{CODIGO PRINCIPAL}
var
i : byte;
A : TArreglo;
begin
for i:=1 to max do
begin
Write('Dame un dígito: ');
ReadLn(A[i]);
end;
WriteLn;
Write('El número es ',conv(A)); ReadLn;
end.