Pascal代码自动格式化

const
    WEnter=7;
    key=13;
    next_line:array[1..WEnter]of string=(';','begin','else','then','repeat','do','var');
    key_word:array[1..key]of string=('begin','end','function','procedure','var','if','else','repeat','until','while','type','const','for');//关键的语句（需要缩进的）
    suojin=1;
    maxn=100;
var
    i,j,t,long:longint;
    s:string;
    pg,pg_key:array[1..maxn]of string;
    kg:array[1..maxn]of longint;
    full:array[1..maxn]of boolean;
function noAlphabat(s:string):boolean;这个字符串不全为空格
    begin
        if s='' then
            exit(true);
        while s[1]=' ' do
            begin
                delete(s,1,1);
                if s='' then break;
            end;
        if s='' then
            exit(true);
        exit(false);
    end;
procedure Enterat(x,y:longint);在x，y的地方按一个回车
    var
        i:longint;
        s:string;
    begin
        for i:=long downto x+1 do
            pg[i+1]:=pg[i];
        pg[x+1]:='';
        s:=copy(pg[x],y,length(pg[x])-y+1);
        pg[x]:=copy(pg[x],1,y-1);
        pg[x+1]:=s;
        long:=long+1;
    end;
function next(i:longint):longint;//找与第i行后9含）第一个begin对应的end
    var
        t,j:longint;
    begin
        t:=0;
        for j:=i to long do
            begin
                if pg_key[j]='begin' then
                    t:=t+1;
                if pg_key[j]='end' then
                    t:=t-1;
                if t=0 then
                    exit(j);
            end;
        writeln('Pairing error with begin-end!');
        //close(output);
        halt;
    end;
function next2(i:longint):longint;//找与第i行后（含）的第一个repeat配对的until
    var
        t,j:longint;
    begin
        t:=0;
        for j:=i to long do
            begin
                if pg_key[j]='repeat' then
                    t:=t+1;
                if pg_key[j]='until' then
                    t:=t-1;
                if t=0 then
                    exit(j);
            end;
        writeln('Pairing error with repeat-until!');
        //close(output);
        halt;
    end;
procedure dfs(l,r,t:longint);//第l到r区间里的代码格式化（初始值t个空格）
    var
        i,k:longint;
        alldo,had_done:boolean;
    begin
        if l>r then
            exit;
        for i:=l to r do
            kg[i]:=t;
        alldo:=true;
        for i:=l to r do
            if pg_key[i]<>'do' then
                alldo:=false;
        if alldo then//全部不需缩进则跳出
            exit;
        i:=l;
        while i<=r do
            begin
                had_done:=false;
                if pg_key[i]='begin' then//begin处理
                    begin
                        dfs(i+1,next(i)-1,t+1);
                        i:=next(i)+1;
                        had_done:=true;
                    end;
                if pg_key[i]='repeat' then//repeat处理
                    begin
                        had_done:=true;
                        dfs(i+1,next2(i)-1,t+1);
                        i:=next2(i)+1;
                    end;
                if (pg_key[i]='if')or(pg_key[i]='while')or(pg_key[i]='for') then//if、while、for处理(共同点是后面可以加begin-end、也可以加do)
                    begin
                        had_done:=true;
                        if pg_key[i+1]='do' then
                            begin
                                dfs(i+1,i+1,t+1);
                                if pg_key[i+2]='else' then //else后相同处理
                                    begin
                                        if pg_key[i+3]='do' then
                                            begin
                                                dfs(i+3,i+3,t+1);
                                                i:=i+4;
                                            end;
                                        if pg_key[i+3]='begin' then
                                            begin
                                                dfs(i+3,next(i+3),t+1);
                                                i:=next(i+3)+1;
                                            end;
                                        if pg_key[i+3]='repeat' then
                                            begin
                                                dfs(i+3,next2(i+3),t+1);
                                                i:=next2(i+3)+1;
                                            end;
                                    end
                                else
                                    i:=i+2;
                            end;
                        if pg_key[i+1]='begin' then
                            begin
                                dfs(i+1,next(i+1),t+1);
                                if pg_key[next(i+1)+1]='else' then
                                    begin
                                        if pg_key[next(i+1)+2]='do' then
                                            begin
                                                dfs(next(i+1)+2,next(i+1)+2,t+1);
                                                i:=next(i+3);
                                            end;
                                        if pg_key[next(i+1)+2]='begin' then
                                            begin
                                                dfs(next(i+1)+2,next(next(i+1)+2),t+1);
                                                i:=next(next(i)+2)+1;
                                            end;
                                        if pg_key[next(i+1)+2]='repeat' then
                                            begin
                                                dfs(next(i+1)+2,next2(next(i+1)+2),t+1);
                                                i:=next2(next(i+1)+2)+1;
                                            end;
                                    end
                                else
                                    i:=next(i+1)+1;
                            end;
                        if pg_key[i+1]='repeat' then
                            begin
                                dfs(i+1,next2(i+1),t+1);
                                if pg_key[next2(i+1)+1]='else' then
                                    begin
                                        if pg_key[next2(i+1)+2]='do' then
                                            begin
                                                dfs(next2(i+1)+2,next2(i+1)+2,t+1);
                                                i:=next2(i+3);
                                            end;
                                        if pg_key[next2(i+1)+2]='begin' then
                                            begin
                                                dfs(next2(i+1)+2,next(next2(i+1)+2),t+1);
                                                i:=next(next2(i)+2)+1;
                                            end;
                                        if pg_key[next2(i+1)+2]='repeat' then
                                            begin
                                                dfs(next(i+1)+2,next2(next2(i+1)+2),t+1);
                                                i:=next2(next2(i+1)+2)+1;
                                            end;
                                    end
                                else
                                    i:=next2(i+1)+1;
                            end;
                    end;
                if (pg_key[i]='procedure')or(pg_key[i]='function') then
                    begin
                        had_done:=true;
                        dfs(i+1,next(i+1),t);
                        i:=next(i+1)+1;
                    end;
                if (pg_key[i]='var')or(pg_key[i]='type')or(pg_key[i]='const')then
                    begin
                        had_done:=true;
                        k:=i;
                        while pg_key[k+1]='do' do
                            k:=k+1;
                        dfs(i+1,k,t+1);
                        i:=k+1;
                    end;
                if not had_done then
                    i:=i+1;
            end;
    end;
begin
    long:=0;
    while not eof do
        begin
            long:=long+1;
            readln(pg[long]);
        end;
    for i:=1 to long do
        begin
            t:=0;
            while (pg[i]<>'')and(pg[i][1]=#9) do
                begin
                    t:=t+1;
                    delete(pg[i],1,1);
                end;
            for j:=1 to t*4 do
                pg[i]:=' '+pg[i];
        end;
    i:=1;
    while i<=long do//黏在一起的语句拆开
        begin
            for j:=1 to WEnter do
                if pos(next_line[j],pg[i])<>0 then
                    if not(noAlphabat(copy(pg[i],pos(next_line[j],pg[i])+length(next_line[j]),length(pg[i])-pos(next_line[j],pg[i])-length(next_line[j])+1))) then
                        begin
                            t:=pos(next_line[j],pg[i])+length(next_line[j]);
                            Enterat(i,t);
                        end;
            i:=i+1;
        end;
    for i:=1 to long do
        while pg[i,1]=' ' do
            delete(pg[i],1,1);
    fillchar(full,sizeof(full),true);
    for i:=1 to long do
        if pg[i]='' then
            full[i]:=false;
    t:=0;
    for i:=1 to long do
        if full[i] then
            begin
                t:=t+1;
                pg[t]:=pg[i];
            end;
    for i:=t+1 to long do
        pg[i]:='';
    long:=t;
    for i:=1 to long do
        begin
            for j:=1 to key do
                if pos(key_word[j],pg[i])<>0 then
                    begin
                        pg_key[i]:=key_word[j];
                        break;
                    end;
            if pg_key[i]='' then
                pg_key[i]:='do';
        end;
    dfs(1,long,0);
    for i:=1 to long do
        kg[i]:=kg[i]*suojin;
    for i:=1 to long do
        writeln('':kg[i],pg[i]);
end.

比较坑爹的就是for循环嵌套无法处理，求大神帮修改