Массивы и строки открытого типа.

[Nilip 777]

Используя массив или строку открытого типа перевести из шестнадцатиричной системы в десятичную.

function HEX_DEC(var x):longint;
const digits:array [0..15] of char =
      ('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');
type strc=string;
var res,ves:longint;
i,j:byte;
begin
res:=0;
ves:=1;
for i:=length(strc(x)) downto 1 do
 begin
  j:=0;
  strc(x)[i]:=UpCase(strc(x)[i]);
  while (digits[j]<>strc(x)[i]) do inc(j);
  res:=res+ves*j;
  ves:=ves*16;
 end;
HEX_DEC:=res;
end;
var a:string;
begin
  readln( a );
  writeln( HEX_DEC(a) );
  readln
end.

Нужно сделать прогу с помощью открытого массива или строки

[Stilet]

Ну собсно function HEX_DEC(x:string):longint;
и убрать strс и все преобразования что в коде с ним связаны

[Nilip 777]

И где же тут будет Открытая строка или массив?

[Stilet]

stirng это открытая строка. Не смотря на то что в ДОСовском паскале она 255 символов ограничивалась работа с ней даже тогда шла как с динамическим массивом.