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

[dimitrijiyul]

Помогите пож-та нарисовать блок-схему к программе:

program Massiv;
uses crt;
const size=100;
type mas=array [1..size] of char;
var n,i:integer; a:mas; f:text;

procedure zapoln(var a:mas; n:integer);
var i:integer;
begin
for i:=1 to n do
begin
write('A[',i,']=');
readln(a[i]);
end;
end;

procedure vihod(var a:mas; n:integer);
var i:integer;
begin
for i:=1 to n do
write(a[i],' ');
end;

procedure sort(var a:mas; n:integer);
var i,s:integer; buf:char;
begin
for s:=n downto 2 do
for i:= 1 to n-1 do
if a[i]<a[i+1] then
begin
buf:= a[i];
a[i]:= a[i+1];
a[i+1]:= buf;
end;
end;

procedure vihod1(var a:mas; n:integer);
var i:integer;
begin
for i:=1 to n do
write(a[i],' ');
end;

function Summa(a:mas; n:integer):real;
var i:integer;sum:real;
begin
sum:=0;
i:=1;
while i<=n do
begin
sum:=sum+ord(a[i]);
i:=i+2;
end;
writeln('Summa: ', sum:6:2);
end;

begin
clrscr;
writeln('Vvedite razmernost');
readln(n);
zapoln(a,n);
writeln('Ishodnii massiv');

vihod(a,n);
sort(a,n);
writeln;
writeln('otsortirovanniy massiv');
vihod1(a,n);
writeln;
Summa(a,n);
assign(f,'myfile.txt');
rewrite(f);
writeln(f,'otsortirovanniy massiv');
for i:=1 to n do
write(f,a[i],' ');
close(f);

readkey;
end.

Заранее огромное спасибо!

[Nik_]