Program folyamatábrája kellene?

A program forráskódja:

program celloveszet; {2014.maj.ang.}

var i,n,j,k,max,be,db,maxi:integer;

t:text;

sor:string[40];

lov:array[1..100] of string[40];

//4.feladathoz

function loertek(sor:string):integer;

var aktpont,ertek,i:integer;

begin

aktpont:=20;

ertek:=0;

for i:=1 to length(sor) do

if (aktpont>0)and(sor[i]='-') then

aktpont:=aktpont-1

else

ertek:=ertek+aktpont;

loertek:=ertek;

end;

begin

writeln('1.feladat');

assign(t,'verseny.txt');

reset(t);

readln(t,n);

i:=1;

while not eof(t) do

begin

readln(t,lov[i]);

inc(i);

end;

close(t);

//n:=i-1;

writeln('az allomanybol beolvastam ',n,' sort');

//for i:=1 to n do

// writeln(lov[i]);

writeln('2.feladat');

for i:=1 to n do

begin

// hol van az elso +

k:=1;

while (k<=length(lov[i]))do begin

while (k<=length(lov[i]))and(lov[i][k]<>'+')do

inc(k);

if k<=length(lov[i]) then

begin

//megszamoljuk hogy hany + van egymas utan

inc(k);

j:=1;

while (k<=length(lov[i]))and(lov[i][k]='+')do

begin

inc(k);

inc(j);

end;

if j>=2 then writeln(i,'. ',j,' db',' a ',k-j,'-tol');

end;

end;

end;

writeln('3.feladat');

max:=length(lov[1]);

for i:=1 to n do

if max<length(lov[i]) then

begin

max:=length(lov[i]);

j:=i;

end;

writeln(j,'. ',max);

writeln('4.feladat');

writeln('pl. 12.: ',loertek(lov[12]));

writeln('pl. 3.: ',loertek(lov[3]));

writeln('5.feladat');

write('adjon meg egy versenyzosorszamot ');

readln(be);

writeln('5.a)');

for i:=1 to length(lov[be])do

if lov[be][i]='+' then write(i,' ');

writeln;

db:=0;

writeln('5.b)');

for i:=1 to length(lov[be])do

if lov[be][i]='+' then inc(db);

writeln(db,' szer talalta el');

writeln('5.c)');

for i:=length(lov[be]) downto 2 do

begin

sor:='';

for j:=1 to i do

sor:=sor+'+';

//writeln(sor,' ' ,length(sor));

//writeln(i, '. ',pos(sor,lov[be]));

if pos(sor,lov[be])>0 then begin maxi:=i; break; end;

end;

writeln('leghosszabb hibatlan soroszat ',maxi);

writeln('5.d)');

writeln('elerte pontok ',loertek(lov[be]));

readln;

end.