Преобразование типа значения: ввод-вывод чисел

program aaa;
var Chislo,Value,ost:integer;
   ch:char;
   Znak: (Minus,Plus);
   Stroka:string[10];
   const AllDigit:array ['0'..'7'];
   of byte=(0,1,2,3,4,5,6,7);
begin
  write('Введите строку=');
  {Stroka:=' ';}; 
  read(ch);
  znak:=plus;
  if ch='-' then
     znak:=minus;
  if ch in ['+','-'] then
     read(ch);
  chislo:=0;
  while ch in['0'..'7'] {=AllDigit} do begin
     value:=AllDigit[ch];
     chislo:=chislo*8+value;
     read(ch);
   end;
   if znak=minus then chislo:=-chislo;
   writeln('Число:=',Chsilo);
           {Chislo->Stoku}
   repeat
     ost:=chislo mod 8;
     chislo:=chislo div 8;
     stroka:=ch+stroka;
     until
        chislo:=0;
        if znak=minus then Stroka:='-'+Stroka;
      readln;
      writeln('Ввели строку=',Stroka);
      readln;
 end.

uses crt;
const digit:string[16]='0123456789ABCDEF';
{процедура ввода числа с проверкой}
procedure Vvod(var c:string;var osn:byte);
var i,k:byte;
    m:set of char;
begin
repeat
write('В какой СС ввести число от 2 до 16 osn=');
readln(osn);
until osn in [2..16];
m:=[];
for i:=1 to osn do
m:=m+[digit[i]];
repeat
k:=0;
writeln('Введите число в СС ',osn);
readln(c);
for i:=1 to length(c) do
if not (c[i] in m) then k:=1;
if k=1 then writeln('Число введено неверно, повторите ввод.');
until k=0;
end;
{фунция перевода  сс 2-16 в 10}
function ToDec(n:string;r:byte):longint;
var m,i:longint;
begin
m:=0;
while n[1]='0' do
delete(n,1,1);
for i:=1 to length(n) do
m:=m*r+pos(n[i],digit)-1;
ToDec:=m;
end;
{функция перевода cc 10 в cc 2-16}
function FromDec(n:longint;r:byte):string;
var s:String;
begin
s:='';
repeat
s:=digit[(n mod r)+1]+s;
n:=n div r;
until n=0;
FromDec:=s;
end;
 
var x:string;
    x1:longint;
    osn:byte;
begin
clrscr;
Vvod(x,osn);
x1:=ToDec(x,osn);
writeln('В СС 10=',x1);
x:=FromDec(x1,osn);
writeln('В СС ',osn,'=',x);
readln
end.