Добавить счетчик количества сочетаний

Program lab2;
type
mas=array [0..100] of integer;
procedure s_povtorami(s: string; m,n:integer);
var i,count1:integer;
begin
  if length(s) = n then
  begin
    for i := 1 to length(s) do
      write(s[i]);
    writeln;
  end
  else
    for i := 1 to m do begin
      s_povtorami(s+i,m,n);
      count1:=count1+m;
      end;
      writeln(count1);
end;
Procedure bez_povtorov(a:mas; m,n,k:integer);
var i,count2:integer;
begin
    for i:=0 to n do a[i]:=i;
  repeat
    for i:=1 to n do write(a[i]);
    writeln;
    i:=n;
    while a[i]=m-n+i do dec(i); 
    inc(a[i]);
    for k:=i+1 to n do a[k]:=a[k-1]+1;
    inc(count2)
  until i=0;
  writeln('Количество сочетаний = ',count2);
end;
var q,m,n,k:integer;
a:mas;
s:string;
begin
  writeln('Для генерации сочетаний с повторами введите 1, без повторов - введите 2');
  readln(q);
  writeln('Введите M и N:');
  read(m, n);
  writeln('Сочетания из M по N:');
  if q=1 then 
    s_povtorami(s,m,n)
  else 
  bez_povtorov(a,m,n,k);
end.

procedure s_povtorami(s: string; m,n:integer);
var i,count1:integer;
begin
  if length(s) = n then
  begin
    for i := 1 to length(s) do
      write(s[i]);
    writeln;
  end
  else
    for i := 1 to m do begin
      s_povtorami(s+i,m,n);
      count1:=count1+m;
      end;
      writeln(count1);
end;