исправить ошибку ..паскаль.

[qasw]

program lab_7 ;
var m:byte; n:word ;
function strvr(n:word;m:byte):string ;
var b,s:string ;i,k:byte ;
function strch(n:integer):char ;
var s:string[1] ;
begin
s:='*' ;
if n in  [0..9] then str(n:1,s); в этой строке ошибка .скажите какая ??
if n in [10..15]
then case n of
   'a':s:=10;
   'b':s:=11;
   'c':s:=12;
   'd':s:=13;
   'e':s:=14;
   'f':s:=15 ;
   end ;
   strch:=s[1]
   end;
   begin
   k:=0;
   b:='';
   s:='';
   while n >m-1
   do begin k:=k+1;
   b:=b+strch(n mod m);
   n:=n div m end ;
   if (n in [1..m-1]) or (k=0)
   then begin k:=k+1;
   b:=b+strch(n) end;
   for i:=k downto 1 do s:=s+b[i];
   strvr:=s
   end;
   begin
   writeln('vvedite zislo');
   readln(n);
   writeln('vvedite osnovanie sistemi iszesleni m');
   readln(m);
   writeln('resylt preobr ',strvr(n,m));
   end.

[Arigato]

Сообщение от qasw

if n in [0..9] then str(n:1,s); в этой строке ошибка .скажите какая ??

Синтаксическая.

[Arigato]

А что вы хотели получить в этой строке?

[ОДИНОЧЕСТВО В СЕТИ]

а зачем 100500 тем создавать?

[qasw]

те мы всё же разные ..и создавал вчера

[ОДИНОЧЕСТВО В СЕТИ]

те мы всё же разные

особенно вот эта разная продолжить нельзя было????

[qasw]

код про ги другой ...лан вы правы ....просто только админ может удалять темы???

p.s. если админ читает то пожалуйста закройте мои темы ....спасибо за помощь )))))))))))