Реализовать программу «Считалочка»

procedure TForm1.btn1Click(Sender: TObject);
const
  n=64;
  k=3;
var
  i,count,tmp:integer;
  mas:array[1..n] of integer;
  s:string;
  flag:boolean;
 
begin
  for i:=1 to n do mas[i]:=i;
    tmp:=0;
    flag:=true;
    i:=1;
    count:=0;
  while flag do
    begin
      if mas[i]>0 then
        begin
          inc(count);
          if count=k then
            begin
              s:=s+inttostr(mas[i])+', ';
              count:=0;
              mas[i]:=-1;
            end;
 
 
 
 
        end;    if mas[i]<0 then inc(tmp);
          inc(i);
          if i>=n then
            begin
              i:=1;
              if tmp=n-1 then flag:=false else tmp:=0;
            end;
    end;
    for i:=1 to n do if mas[i]>0 then s:=s+inttostr(mas[i]);
    showmessage(s);
end;

var
  Form1: TForm1;
  function func(k,n:integer):string;
 
implementation
 
{$R *.dfm}
 
function func(k,n:integer):string;
var
  i,count,tmp:integer;
  mas:array of integer;
  s:string;
  flag:boolean;
begin
  setlength(mas,n);
  for i:=1 to n do mas[i]:=i;
    tmp:=0;
    flag:=true;
    i:=1;
    count:=0;
  while flag do
    begin
      if mas[i]>0 then
        begin
          inc(count);
          if count=k then
            begin
              s:=s+inttostr(mas[i])+', ';
              count:=0;
              mas[i]:=-1;
            end;
        end;
      if mas[i]<0 then inc(tmp);
      inc(i);
      if i>=n then
      begin
        i:=1;
        if tmp=n-1 then flag:=false else tmp:=0;
      end;
    end;
    for i:=1 to n do if mas[i]>0 then s:=s+inttostr(mas[i]);
    result:= s;
end;
 
procedure TForm1.btn1Click(Sender: TObject);
begin
showmessage(func(strtoint(edt1.Text),strtoint(edt2.Text)));
end;