Написать пояснение к программе на длинную арифметику

const nmax=1024;
type ts = 0..9;
chislo=array[1..nmax] of ts;
 
procedure nul(var a:chislo);
var i:1..nmax;
begin
for i:=1 to nmax do
a[i]:=0;
end;
 
procedure perevod(s:string;var a:chislo);
var i,n :1..nmax;
begin
n:=length(s);
nul(a);
for i:=1 to n do
a[n-i+1]:=ord(s[i])-ord('0');
end;
 
function kol(const a: chislo):word;
var i:integer;
begin
i:=nmax;
while(a[i]=0)and(i>1) do
i:=i-1;
kol:=i;
end;
 
procedure umn(var a,b,c:chislo);
var i,g,n,m:1..nmax; p:0..9; v:byte;
begin
nul(c);
m:=kol(a);
n:=kol(b);
for i:=1 to m do
begin
p:=0;
for g:=1 to n do
begin
v:=a[i]*b[g]+p+c[i+g-1];
c[i+g-1]:=v mod 10;
p:=v div 10;
end;
c[i+n]:=p;
end;
for i:=1 to nmax do
a[i]:=c[i];
end;
 
procedure pechat(var a : chislo);
var i:1..nmax;
begin
for i:=kol(a) downto 1 do
write(a[i]);
writeln;
end;
 
var s:string; a,b,c:chislo;i:byte;k:1..nmax;
begin
s:='2';
perevod(s,a);
perevod(s,b);
for i:=2 to 64 do
begin
umn(a,b,c);
for k:=1 to nmax do
a[k]:=c[k];
end;
c[1]:=c[1]-1;
pechat(c);
end.