Массив с буквами и цифрами.

var a:array[1..1000] of char;

Program p2;
const n=20;
type  cifri =1..32;
      Mass = array[1..n] of integer;
function perevod(n:char) :integer;
begin
  if n='1' then perevod:=1;
  if n='2' then perevod:=2;
  if n='3' then perevod:=3;
  if n='4' then perevod:=4;
  if n='5' then perevod:=5;
  if n='6' then perevod:=6;
  if n='7' then perevod:=7;
  if n='8' then perevod:=8;
  if n='9' then perevod:=9;
  if n='A' then perevod:=10;
  if n='B' then perevod:=11;
  if n='C' then perevod:=12;
  if n='D' then perevod:=13;
  if n='E' then perevod:=14;
  if n='F' then perevod:=15;
end;
var Cislo1,Cislo2,cislo:Mass;
    kolvo1,kolvo2,kolvo,i: integer;
    p: cifri;
    ch: char;
begin
p:=17;
 while p>16 do
 begin
  write('wwedite osnovanie: ');
  readln(p);
  if p>16 then writeln('osnivanie dolzhno bit < 16');
 end;
 {wwodim pervoe cislo}
 write('kol-vo cifr v chisle 1(max ',n-1,')? ');
 readln(kolvo1);
 write('wwedite chislo 1(cifri cherez probel): ');
 for i:=n-kolvo1+1 to n do
 begin
  readln(ch);
  Cislo1[i]:=perevod(ch);
 end;
 writeln;
 readln;
 {wwodim wtoroe cislo}
 write('kol-vo cifr v chisle 2(max ',n-1,')? ');
  readln(kolvo2);
 write('wwedite chislo 2(cifri cherez probel): ');
 for i:=n-kolvo2+1 to n do
 begin
  readln(ch);
  cislo2[i]:=perevod(ch);
 end;
 if kolvo1>kolvo2 then kolvo:=kolvo1 else kolvo:=kolvo2;
 for i:=n downto n-kolvo+1 do
 begin
  cislo[i]:=cislo1[i]+cislo2[i];
  if cislo[i]>=p then
   begin
   cislo[i]:=cislo[i]-p;
   cislo1[i-1]:=cislo1[i-1]+1;
   end;
 end;
 if cislo[n-kolvo]>0 then kolvo:=kolvo+1;
 write('= ');
 for i:=n-kolvo+1 to n do
 begin
  write(cislo[i]);
 end;
 readln;
 readln;
end.

write('wwedite chislo 1(cifri cherez probel): ');
 for i:=n-kolvo1+1 to n do
 begin
  read(ch);
  Cislo1[i]:=perevod(ch);
 end;