vedel by mi niekto spravit vyvojovy diagram a strukturogram na tento program?

uses crt; {pouzije kniznicu crt}
procedure zakoduj; {procedura zakodovania}
var veta:string; {premena veta typu string pre vstupne udaje}
i,j,koduj:integer; {i,j ako pomocne premene a koduj ako kodovacia premena}
begin
clrscr; {vymaz obrazovky}
gotoxy(10,3); {nadstavenie kurzora na dane suradnice obrazovky}
writeln('Napis vetu pre zakodovanie:'); {vypis textu}
gotoxy(8,5);
readln(veta); {vstupne udaje ulozi do premenej veta}
clrscr;
textcolor(white); {nadstavenie farby textu na bielu}
gotoxy(4,3);
writeln('Povodna veta je: ',veta); {vypis povodnej vety}
textcolor(LightGray);
gotoxy(4,5);
write('Zakodovana veta je: ');
textcolor(yellow);
for i:=1 to length(veta) do {zaciatok cyklu kodovania od 1 znaku po posledny znak}
begin
j:=0; {nastavi pomocnu premennu na 0}
koduj:=ord(veta[i]); {i-ty znak z premennej veta mi zmeni do ciselnej ASCII hodnoty}
if ((koduj>=65) and (koduj<90)) or ((koduj>=97) and (koduj<122)) then {podmienka pre zvysenie (kodovanie) hodnoty}
begin
inc(koduj); {zvysenie o 1 premenej koduj}
j:=1; {nastavenie pomocnej premenej na 1}
end;
if (koduj=90) and (j=0) then koduj:=65; {ak nebola vykonana predchadzajuca
podmienka a znak je Z tak mi ho premeni na A}
if (koduj=122) and (j=0) then koduj:=97; {to iste ale s malym pismenom}
write(chr(koduj)); {vypise prekodovany znak}
end;
end;
procedure dekoduj;
var veta:string;
i,j,koduj:integer;
begin
clrscr;
gotoxy(10,3);
writeln('Napis vetu pre dekodovanie:');
gotoxy(8,5);
readln(veta);
clrscr;
textcolor(white);
gotoxy(4,3);
writeln('Zakodovana veta je: ',veta);
textcolor(LightGray);
gotoxy(4,5);
write('Dekodovana veta je: ');
textcolor(yellow);
for i:=1 to length(veta) do
begin
j:=0;
koduj:=ord(veta[i]);
if ((koduj>65) and (koduj<=90)) or ((koduj>97) and (koduj<=122)) then
begin
dec(koduj);
j:=1;
end;
if (koduj=65) and (j=0) then koduj:=90;
if (koduj=97) and (j=0) then koduj:=122;
write(chr(koduj));
end;
end;
var z:char; {vstupna premenna v menu}
begin
clrscr;
gotoxy(20,9);
write('Menu:');
gotoxy(20,10);
write('*****');
gotoxy(17,12);
write('1. zakodovat');
gotoxy(17,13);
write('2. dekodovat');
repeat {zaciatok cyklu}
z:=readkey; {caka na vstup z klavesnice}
until (z='1') or (z='2'); {cyklus sa opakuje kym uzivatel nestlaci 1 alebo 2}
case z of {ak stlaci...}
'1':zakoduj; {..1 tak sa zacne procedura zakoduj}
'2':dekoduj; {..2 tak sa zacne procedura dekoduj}
end;
gotoxy(10,12);
textcolor(red+blink); {nastavenie farby textu na cervenu a blikajucu}
write('STLACENIM LUBOVOLNEJ KLAVESY PROGRAM UKONCIS');
repeat until keypressed; {cakaj kym sa nieco nestlaci na klavesnici}
end.

vdaka