Pascal 如何用程序制作流程图？

我的代码中有很多过程 我的代码中有太多的gotoxy和write 在这种情况下，如何制作整个程序的流程图

uses crt;
var a,b,c : integer;
user,pass : string;

procedure loading;
var titikloading: integer;
begin
        titikloading := 15;
        for a:=1 to 50 do
        begin
                gotoxy(38,15);
                write(a*2,'%');
                delay(50);
                gotoxy(titikloading,17);
                write(#177);
                titikloading:= titikloading+1;

        end;
        delay(500);

end;




procedure username;
begin
textcolor(white);
        gotoxy(27,12);
        write('Username : ');
        readln(user);
        while (user <> 'fti') do
        begin
                gotoxy(38,12);
                write('                                   ');
                username;
        end;

end;
procedure password;
begin
        textcolor(white);
        gotoxy(27,13);
        write('Password : ');
        readln(pass);
        while (pass <> 'fti') do
        begin
                gotoxy(38,13);
                write('                                 ');
                password;
        end;
end;


PROCEDURE f;
begin
gotoxy(20,7);  writeln('*****'); delay(200);
gotoxy(20,8);  writeln('*    '); delay(200);
gotoxy(20,9);  writeln('*****'); delay(200);
gotoxy(20,10); writeln('*    '); delay (200);
gotoxy(20,11); writeln('*'    ); delay (200);
end;

procedure t;
begin
gotoxy(38,3); writeln('*****'); delay(200);
gotoxy(38,4); writeln('  *'); delay(200);
gotoxy(38,5); writeln('  *'); delay(200);
gotoxy(38,6); writeln('  *'); delay(200);
gotoxy(38,7); writeln('  *'); delay(200);
end;

procedure i;
begin
gotoxy(60,7);  writeln('*'); delay(200);
gotoxy(60,8);  writeln('*'); delay(200);
gotoxy(60,9);  writeln('*'); delay(200);
gotoxy(60,10); writeln('*'); delay(200);
gotoxy(60,11); writeln('*'); delay(200);
end;

procedure u;
begin
gotoxy(15,15);writeln('*   *'); delay(200);
gotoxy(15,16);writeln('*   *'); delay(200);
gotoxy(15,17);writeln('*   *'); delay(200);
gotoxy(15,18);writeln('*   *'); delay(200);
gotoxy(15,19);writeln('*****'); delay(200);
end;

procedure k;
begin
gotoxy(30,20);writeln('*   *'); delay(200);
gotoxy(30,21);writeln('* *  '); delay(200);
gotoxy(30,22);writeln('***  '); delay(200);
gotoxy(30,23);writeln('* *  '); delay(200);
gotoxy(30,24);writeln('*   *'); delay(200);
end;

procedure s;
begin
gotoxy(50,20);writeln('*****'); delay(200);
gotoxy(50,21);writeln('*    '); delay(200);
gotoxy(50,22);writeln('*****'); delay(200);
gotoxy(50,23);writeln('    *'); delay(200);
gotoxy(50,24);writeln('*****'); delay(200);
end;

procedure w;
begin
gotoxy(65,15);writeln('*   *'); delay(200);
gotoxy(65,16);writeln('*   *');   delay(200);
gotoxy(65,17);writeln('*   *');   delay(200);
gotoxy(65,18);writeln('* * *');   delay(200);
gotoxy(65,19);writeln('** **'); delay(200);
end;
BEGIN
  clrscr;
        username;
        password;
        loading;
        clrscr;

f;t;i;u;k;s;w;

END;

使用crt；
变量a、b、c：整数；
用户，通过：字符串；
程序加载；
var-titikloading：整数；
开始
提提负荷：=15；
对于a:=1到50 do
开始
gotoxy（38,15）；
写入（a*2，“%”）；
延迟（50）；
gotoxy（titikloading，17岁）；
写（#177）；
titikloading:=titikloading+1；
结束；
延迟（500）；
结束；
程序用户名；
开始
文本颜色（白色）；
gotoxy（27,12）；
写入（'用户名：'）；
readln（用户）；
while（用户“fti”）do
开始
gotoxy（38,12）；
写（“”）；
用户名；
结束；
结束；
程序密码；
开始
文本颜色（白色）；
gotoxy（27,13）；
写入（'密码：'）；
readln（pass）；
而（通过“fti”）呢
开始
gotoxy（38,13）；
写（“”）；
密码；
结束；
结束；
程序f；
开始
gotoxy（20,7）；书面文件（'*****'）；延迟（200）；
gotoxy（20,8）；writeln（'*'）；延迟（200）；
gotoxy（20,9）；书面文件（'*****'）；延迟（200）；
gotoxy（20,10）；writeln（'*'）；延迟（200）；
gotoxy（20,11）；writeln（'*'）；延迟（200）；
结束；
程序t；
开始
gotoxy（38,3）；书面文件（'*****'）；延迟（200）；
gotoxy（38,4）；writeln（'*'）；延迟（200）；
gotoxy（38,5）；writeln（'*'）；延迟（200）；
gotoxy（38,6）；writeln（'*'）；延迟（200）；
gotoxy（38,7）；writeln（'*'）；延迟（200）；
结束；
程序一；
开始
gotoxy（60,7）；writeln（'*'）；延迟（200）；
gotoxy（60,8）；writeln（'*'）；延迟（200）；
gotoxy（60,9）；writeln（'*'）；延迟（200）；
gotoxy（60,10）；writeln（'*'）；延迟（200）；
gotoxy（60,11）；writeln（'*'）；延迟（200）；
结束；
程序u；
开始
gotoxy（15,15）；writeln（'**'）；延迟（200）；
gotoxy（15,16）；writeln（'**'）；延迟（200）；
gotoxy（15,17）；writeln（'**'）；延迟（200）；
gotoxy（15,18）；writeln（'**'）；延迟（200）；
gotoxy（15,19）；书面文件（'*****'）；延迟（200）；
结束；
程序k；
开始
gotoxy（30,20）；writeln（'**'）；延迟（200）；
gotoxy（30,21）；writeln（'**'）；延迟（200）；
gotoxy（30,22）；书面形式（“***”）；延迟（200）；
gotoxy（30,23）；writeln（'**'）；延迟（200）；
gotoxy（30,24）；writeln（'**'）；延迟（200）；
结束；
程序s；
开始
gotoxy（50,20）；书面文件（'*****'）；延迟（200）；
gotoxy（50,21）；writeln（'*'）；延迟（200）；
gotoxy（50,22）；书面文件（'*****'）；延迟（200）；
gotoxy（50,23）；writeln（'*'）；延迟（200）；
gotoxy（50,24）；书面文件（'*****'）；延迟（200）；
结束；
程序w；
开始
gotoxy（65,15）；writeln（'**'）；延迟（200）；
gotoxy（65,16）；writeln（'**'）；延迟（200）；
gotoxy（65,17）；writeln（'**'）；延迟（200）；
gotoxy（65,18）；书面形式（“***”）；延迟（200）；
gotoxy（65,19）；书面文件（'**'）；延迟（200）；
结束；
开始
clrsc；
用户名；
密码；
加载；
clrsc；
FT我UKsW
结束；

我不确定我是否应该在流程图中用一种形状来表达每一句话，因为别人理解起来很奇怪

---

伙计们，你们觉得怎么样？

这个问题应该继续问下去。就我个人而言，我不确定流程图对理解代码有多大帮助，但更好的标识符名称肯定可以：）这个问题应该继续讨论。就我个人而言，我不确定流程图对理解代码有多大帮助，但更好的标识符名称肯定可以：）