icewind

Добрый день, у меня проблема, нужна блок схема к курсовой, а я не знаю как сделать.... Помогите пожалуйста...
Вот код...
Program Mediana;
Type
New_Mas=Array[1..20001] of Integer;
Var
i,n:LongInt;
a,b:^New_Mas;
Procedure Sort(L,r:Integer);
var i,j,x,y:integer;
begin
i:=L; j:=r; x:=a^[ (l+r) div 2];
repeat
while a^[i]<x do inc(i);
while x<a^[j] do dec(j);
if i<=j then
begin
y:=a^[i]; a^[i]:=a^[j]; a^[j]:=y;
y:=b^[i]; b^[i]:=b^[j]; b^[j]:=y;
i:=i+1; j:=j-1;
inc(i); dec(j);
end;
Until i>j;
if L<j then Sort(L,j);
if i<r then sort(i,r);
end;
begin
assign(Input,'Median.dat');
reset(input);
assign(output,'Median.sol');
rewrite(output);
New(a);
new(b);
readln(n);
for i:=1 to 2*n+1 do
begin
read(a^[i]);
b^[i]:=i;
end;
sort(1,2*n+1);
writeln(b^[n+1]);
dispose(a);
dispose(b);
end.

Léon

Здравствуйте! Да, видно сразу что курсовая. Вот блок-схема:

Миниатюры