ввод строки в СС16 и перевод в СС10 и вывод введеной строки после перевода с СС10

[alexey961]

Знаковый перевод строки из 16-тиричной СС в десятичную и обратно в строку, у мну так получилось, но с byte там проблемы, "ожидалаось 10 элементов" такая ошибка, проверял на паксаль авс, на турбо не проверял

var Chislo,Value,ost: integer;
    Ch:char;
    Znak:(Minus,Plus); {вместо смайлика тут двоеточие стоит}
    Stroka:string[16];
    const AllDigit:array['0'..'9','A'..'F','a'..'f']{}
    of byte=(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15);{}
begin
  write('vedi stroky:');
{  Stroka:='';}
  Read(Ch);
  Znak:=Plus;
  if Ch='-'then
     Znak:=Minus;
  if Ch in ['+','-'] then
    Read (Ch);
  Chislo :=0;
  while Ch in ['0'..'9','A'..'F','a'..'f']{=AllDigit} do begin {}
    Value := AllDigit[Ch];
    Chislo:=Chislo*16+Value;
    Read(Ch);
  end;
  if Znak=Minus then
  begin
  Chislo:=-Chislo;end;
  writeln('chislo:=',Chislo);
   
   repeat
    ost:=Chislo mod 16;
    Chislo:=Chislo div 16;
    Ch:=Chr(ord('0')-ost);
    Stroka:=Ch+Stroka;
  until
    Chislo=0;
    begin
     { Chislo -> Srtoku }
  repeat
    ost:=Chislo mod 16;
    Chislo:=Chislo div 16;
    Ch:=Chr(ord('0')+ost);
    Stroka:=Ch+Stroka;
  until
    Chislo=0;
    end;
    if Znak=Minus then
    Stroka:='-'+Stroka;
  Readln;
  Writeln('veli stroky:',Stroka);
  Readln;
end.

[Serge_Bliznykov]

   const AllDigit:array['0'..'9','A'..'F','a'..'f']{}
    of byte=(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15);{}

такая запись недопустима.
Во-первых, вы пытаетесь описать 22 элемента, а задаёте только 16, но главное не это. главное, что когда Вы пишете array[1..2,1..10] то это создание ДВУХМЕРНОГО массива 2x10. А Вы вообще ТРЁХмерный описываете массив!

в качестве варианта решения предлагаю выкинуть ваш массив AllDigit
и цикл записать так:

  Chislo :=0;
  while Ch in ['0'..'9','A'..'F','a'..'f'] do begin
    case Ch of
     '0'..'9': Value := ord(ch)-ord('0');
     'A'..'F': Value := ord(ch)-ord('A')+10;
     'a'..'f': Value := ord(ch)-ord('a')+10;
    end;
    Chislo:=Chislo*16+Value;
    Read(Ch);
  end;

p.s. остальную логику программы я не трогал, хотя мне и не понравилось, как Вы в цикле читаете знак и как читаете само шестнадцатеричное число. Раз Вы так написали, значит, Вы так понимаете и/или Вам так нужно.
Успехов!