Составить блок-схемупо программе

[dobbi]

help me!
я написал программу. Помогите к ней написать блок-схему

program Integral;
uses
Crt, Dos;
var
dx,x1,x2,e,i:real;
function Fx(x:real):real;
begin
Fx:=x*x;
end;
procedure CountViaTrap;
var
xx1,xx2,xx3:real;
c:longint;
begin
writeln('------------------------------------------------');
writeln('-->metod trapecii.');
writeln('vsego iteracii:',round(abs(x2-x1)/e));
i:=0;
for c:=1 to round(abs(x2-x1)/e) do begin
write('iteracia ',c,chr(13));
xx1:=Fx(x1+c*e);
xx2:=Fx(x1+c*e+e);
if xx2>xx1 then xx3:=xx1 else xx3:=xx2;
i:=i+abs(xx2-xx1)*e+abs(xx3)*e;
end;
writeln('------------------------------------------------');
writeln('integral=',i);
end;
begin
clrscr;
begin
writeln('------------------------------------------------');
writeln('Vvedite ishodnie znachenia:');
write('Nachalnoe znachenie x (x1)=');Readln(x1);
write('Konechnoe znachenie x (x2)=');Readln(x2);
write('Tochnost vichislenia (e)=');Readln(e);

end;
CountViaTrap;
writeln('------------------------------------------------');
readkey;
end.

[Stilet]

Вообще-то есть программы, строящие блок-схемы по коду.
Я много раз выкладывал здесь, да и другие ссылки давали - так что поищи.