Блок-схема

[pawel_b]

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

1. Program rgz;
2. const
3. m=5;
4. n=3;
5. Var
6. q:array[1..m,1..n] of integer;
7. i,j,k,t:integer;
8. Begin
9. writeln(' Original matrix: ');
10. randomize;
11. for i:= to m do
12. begin
13. for j:=1 to n do
14. begin
15. q[i,j]:=-25+random(51);
16. write(q[i,j]:4);
17. end;
18. writeln;
19. end;
20. for j:=1 to n do
21. for i:=1 to m-1 do
22. for k:=i+1 to m do
23. if q[k,j]>q[i,j] then
24. begin
25. t:=q[i,j];
26. q[i,j]:=q[k,j];
27. q[k,j]:=t;
28. end;
29. writeln(' Sorted matrix: ');
30. for i:=1 to m do
31. begin
32. for j:=1 to n do write(q[i,j]:4);
33. writeln;
34. end;
35. readln;
36. End.