function text2zahl(text: string):integer
var
   i,n,zahl,basis: integer;
   vec: array of integer;
begin
   n:=10; #Blocklaenge!

   vec:=alloc(array,n);
   
   for i:=0 to min(length(text)-1,n-1) do
      vec[i]:=ord(text[i])-65;
   end;
   
   zahl := 0;
   basis := 1;
   for i:=n-1 to 0 by -1 do
      zahl := zahl + basis*vec[i];
      basis := basis*26;
   end;
   
   return zahl;
end;

function zahl2text(zahl: integer):string
var
   i,n: integer;
   text: array of string;
begin
   n:=10; #Blocklaenge!

   text:=alloc(string,n);
   
   for i:=n-1 to 0 by -1 do
      text[i]:=chr((zahl mod 26)+65);
      zahl:=zahl div 26;
   end;
   
   return text;
end;