Как сделать блок-схему с процедурами?

Question

В моем коде много процедур, и в моем коде слишком много 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;

Я не уверен, должен ли я делать каждое утверждение в одной форме на блок-схеме, потому что это странно для других, чтобы понять.

Что вы думаете, ребята?