ребят вопрос ????паскаль

[qasw]

помогите этот код переделать в код проги чтобы система была восьмиричной ..

program lab_7 ;
var s:string;
k:byte ;
function valvr(s:string ; p:integer):integer ;
var n,i,h:integer ;
st:string;
function valch(ch:string):integer ;
var n , cod:integer ;
begin
n:=-1 ;
if ch [1] in ['0'..'9']
then val(ch,n,cod) ;
if ch[1] in ['a'..'f']
then case ch [1] of
'a':n:=10;
'b':n:=11;
'c':n:=12;
'd':n:=13;
'e':n:=14;
'f':n:=15 ;
end ;
valch:=n
end;
begin
h:=length(s);
n:=valch(s[h]);
if h >1
then for i:=h-1 downto 1
do n:=n+trunc(exp(h-1)*ln(p))*valch(s[i]);
valvr:=n
end;
begin
writeln('vvedite stroky');
readln(s);
writeln('vvedite osnovanie sistemi czislenir k');
readln(k);
writeln('zislo=',valvr(s,k));
end.

[Alex Cones]

Посмотри здесь.

http://www.excode.ru/art5629p5.html

[qasw]

это то да ... а если без ОСТ и т .д. более примитивно как я выложил ..мижешь....там про га такая ...
функция возр-ая код литеры соответствующий натуральному числу n , где n=0,1,.....15 , а ch примерное значение '0'.....'9 , 'a'..'f'' . если аргумент n за пределами диапазона значений , функция возвращает '*' .