Перебор цифр в массиве

Program Generator_combination;
{Генератор сочетаний} 
const 
 n=5; k=4; n1=100;
type 
 t=array[1..n1] of integer; 
var 
 x,min,max : t; 
 i,j,r:integer; 
 
begin // задаются начальные значения max,min,x
for j:=1 to k do 
 begin 
 max[j]:=n-j+1;
 min[j]:=k-j+1;
 x[j]:=min[j] 
 end; 
 
writeln('Сочетания из ',n,' эл-тов по ', k, ' элементов'); 
 
while i<=k do 
 begin 
 for j:=k downto 1 do write(x[j], ' '); writeln; 
 r:=r+1; i:=1; 
 while (i<=k) and (x[i]=max[i]) do i:=i+1; 
 if i<=k then x[i]:=x[i]+1;
 for j:=i-1 downto 1 do 
 begin 
 min[j]:= x[j+1]+1; 
 x[j]:=min[j] 
 end 
 end; 
writeln('Общее число сочетаний равно r = ', r)
end.

const r=2000;
      n=5;
      m=4;
      k=2;
var i,j,s,t,q,b,schet,schet1,l:integer;
    a:array [1..r] of integer;
    f,f1,f2,f3:string;
   
function summ:integer;
var i1,s1,q1:integer;
begin
s1:=0;
for i1:= 1 to m do
begin
str(q,f3);
val(f3[i1],q1,t);
s1:=s1+q1;
end; 
summ:=s1;
end;
begin
{readln(s);}
for s:= 1 to r do
begin
 
for l:= 1 to r do a[l]:=0;
t:=s;
q:=s;
i:=k+1;
schet:=r+1;
while t>=i do 
begin
dec(schet);
t:=t mod i;
a[schet]:=t;
q:=trunc(q/i);
t:=q;
end;
 
a[schet-1]:=q;
f1:='';
f:='';
 
for i:= 1 to r do
begin
str(a[i],f);
f1:=f1+f;
end;
val(f1,q,t);
{if (q<100) and (q>) then q:=0;}
str(q,f2);
if (length(f2)<m) or (length(f2)>=m+1) then q:=0;
str(q,f1);
b:=0;
b:=pos('0',f1);
if b=0 then
            begin
            val(f1,q,t);
            writeln(q);
            if summ =n then inc(schet1);
            end;
b:=0;
 
end;
 
writeln(schet1);
end.

const 
      n=4;
      m=2;
      k=2;
var i,j,schet,m1,m2,x5,min1,max1,mmm:integer;
    s,s2,min,max:string;
    znach,pp:integer;
 
function prov(y3:string):boolean;
var i5:integer;
    x3:string;
begin
prov:=true;
i5:=pos('0',y3);
if i5>0 then prov:=false;
end;
 
function perevod(q,w:integer):string;
var t,t1,pw,pw1:integer;
    s,s1:string;
begin
t:=w;
t1:=w;
while t1>=q do
begin
t:=t mod q;
t1:=trunc(t1/q);
str(t,s);
s1:=s+s1;
t:=t1;
end;
str(t,s);
s1:=s+s1;
perevod:=s1;
end;
 
function stepen(x2,y2:integer):integer;
var x3,i3:integer;
begin
x3:=1;
for i3:= 0 to y2 do
begin
x3:=x3*x2;
end;
stepen:=x3;
end;
 
function back_perevod(x1:string):integer;
var i2,ppp:integer;
    chislo,chislo1:real;
    st:string;
    a:array [0..m-1] of integer;
begin
for i2:= 0 to m-1 do
begin
val(x1[i2+1],a[(m-1)-i2],ppp);
chislo:=a[(m-1)-i2]*power((k+1),i2);
chislo1:=chislo1+chislo;
end;
 
back_perevod:=round(chislo1);
end;
 
function summ(x1:string):integer;
var i1,p,qw,p1:integer;
begin
for i1:= 1 to m do
begin
val(x1[i1],p,qw);
p1:=p1+p;
end; 
summ:=p1;
end;
 
begin
j:=k+1;
for i:= 1 to m do
begin
min:=min+'1';
str(k,s);
max:=max+s;
end;
 
min1:=back_perevod(min);
max1:=back_perevod(max);
 
for i:= min1 to max1 do
begin
s:=perevod(j,i);
mmm:=summ(s);
if mmm =n then 
                         begin
                          if prov(s) then
                                          begin
                                          inc(schet);
                                          end;
                          end;
writeln(perevod(j,i),' -----',i);
 
end;
 
writeln(schet);
end.