这个用递归法解决报数问题的pascal程序哪错了？

program houzi;  type arr=array[1..100] of integer;  var    a:arr;    n,i,k:integer;
  procedure guocheng(var a:arr;var  ji:integer);
    var      s:integer;    begin      if ji >=3 then                  begin                  k:=1;s:=0;                  case k of                  1:begin                      for i:=1 to ji do                      s:=s+1;                      k:=0;                      if s=3 then                        begin                        ji:=ji-1;                        a[i]:=0;                        s:=0;                        end;                    end;
                  0:begin                      for i:=ji downto 1 do                      s:=s+1;                      k:=1;                      if s=3 then                        begin                        ji:=ji-1;                        a[i]:=0;                        s:=0;                        end;                     guocheng(a,n);                     end;                    end;     end;



  begin    writeln('shumu');    readln(n);    for i:=1 to n do      a[i]:=1;    guocheng(a,n);
          if k=1 then            begin              i:=1;              while a[i]=0 do i:=i+1;              ji:=i;            end          else            begin              i:=n;              while a[i]=0 do i:=i-1;              ji:=i;
    writeln('jieguoshi','a','[',ji,']');  end.编译时不成功。

主程序没有设定  ji 的类型。

case语句没有结束，在过程最后一个 end; 之前再加一个end;

倒数第七行的：

else
    begin
    i:=n;
    while a[i]=0 do i:=i-1;
    ji:=i;

    {这里没有 end;   }。

    writeln('jieguoshi','a','[',ji,']');
  end.
(以下这个不是编译错误，倒数第二行)

 writeln('jieguoshi','a','[',ji,']');    ，

我自作主张的改成了 writeln('jieguoshi a[',ji,']'); 。

那么以下： （编译通过，符不符合题意呢，就不知道了。）

program houzi;
  type arr=array[1..100] of integer;
  var
    a:arr;
    n,i,k,ji:integer;

  procedure guocheng(var a:arr;var  ji:integer);

    var
    s:integer;
    begin
    if ji >=3 then
    begin
    k:=1;
    s:=0;
    case k of
    1:begin
    for i:=1 to ji do
    s:=s+1;
    k:=0;
    if s=3 then
    begin
    ji:=ji-1;
    a[i]:=0;
    s:=0;
    end;
    end;

    0:begin
    for i:=ji downto 1 do
    s:=s+1;
    k:=1;
    if s=3 then
    begin
    ji:=ji-1;
    a[i]:=0;
    s:=0;
    end;
    guocheng(a,n);
    end;
    end;
    end;
    end;

  begin
    writeln('shumu');
    readln(n);
    for i:=1 to n do
    a[i]:=1;
    guocheng(a,n);

    if k=1 then
    begin
    i:=1;
    while a[i]=0 do i:=i+1;
    ji:=i;
    end
    else
    begin
    i:=n;
    while a[i]=0 do i:=i-1;
    ji:=i;
    end;
    writeln('jieguoshi a[',ji,']');
  end.

约瑟夫问题？？VAR i,k,m,s:longint; f:boolean; function c(r:integer):boolean; var re:integer; begin re:=(s+m-1)mod r; if (re>=k) then begin s:=re; c:=true; end else c:=false; end; begin read(k); m:=k; while not f do begin f:=true;s:=0; for i:=0 to k-1 do if (not c(2*k-i))then begin f:=false; break; end; inc(m); end; writeln(m-1); end.上面这个是程序 下面的是 我给你修改的程序 可以编译 但没测试 program houzi; type arr=array[1..100] of integer; var a:arr; n,i,k,ji:integer; procedure guocheng(var a:arr;var ji:integer); var s:integer; begin if ji >=3 then begin k:=1;s:=0; case k of 1:begin for i:=1 to ji do s:=s+1; k:=0; if s=3 then begin ji:=ji-1; a[i]:=0; s:=0; end; end; 0:begin for i:=ji downto 1 do s:=s+1; k:=1; if s=3 then begin ji:=ji-1; a[i]:=0; s:=0; end; guocheng(a,n); end; end; end; end; begin writeln('shumu'); readln(n); for i:=1 to n do a[i]:=1; guocheng(a,n); if k=1 then begin i:=1; while a[i]=0 do i:=i+1; ji:=i; end else begin i:=n; while a[i]=0 do i:=i-1; ji:=i; end; writeln('jieguoshi','a','[',ji,']'); end.

你一天就光会干这事！