Нужна блок-схема, помогите

[icewind]

Нужна блок-схема, помогите

Всем привет у меня сдача курсовой, пожалуйста помогите написать блок схему к это программе((( вот код...:tehnari_ru_942:
Program Sudna;
Type New_type=Record
numb,time:integer;
end;
Arr=Array[1..10000] of New_type;
Var A:Arr;
i,n:integer;
Procedure Read_Data;
begin
Assign(Input,'dock.dat');
Reset(Input);
Readln(Input,n);
for i:=1 to n do
Readln(A.numb,A.time);
Close(Input);
end;
Procedure Quicksort (var a:Arr; Lo,Hi:integer);
Procedure Sort (L,r:integer);
Var i,j,x:integer;
Y:New_type;
begin
i:=L;
j:=r;
x:=A [(L+r) div 2].time;
Repeat
While A. time<x do inc (i);
While x<A[j]. time do dec (j);
if i<=j
then begin
Y:=A;
A:=A[j];
A[j]:=Y;
Inc(i);
dec(i);
end;
Until i>j;
if L<j then Sort (L,j);
if i<r then Sort (i,r);
end;
begin {quicksort};
Sort(Lo,Hi);
end;
Procedure Write_Data;
begin
Assign(Output,'Doc.sol');
Rewrite(Output);
for i:=1 to n do
Write (A.numb,' ');
Writeln;
Close(Output);
end;
begin

Read_Data;

QuickSort(A,1,n);
Write_Data;
End.

 

[Léon1]

Всем привет у меня сдача курсовой, пожалуйста помогите написать блок схему к это программе.

Ну вроде уже все блок-схемы нарисовала к вашей курсовой.
Вот:

 

[Léon1]

Вот теория, чтобы разобраться: Блок-схемы.