Алгоритм программы.

[Небесный]

Немного туповатый, но все же у меня вопрос.
Я студент заочник, нам все рассказали, и писать уже вроде немного научился, написал две контрольные да и бог с ними. Но, сдавать нужно, а в контрольной нужно написать алгоритм работы проги, как писать, да кто его знает.
Если кто может помочь мне, прошу мне рассказать, что где и как, вот на примере сейчас выложу код первой контрольной.
Заранее благодарен за помощь.

Просьба админам: удалить темку созданую мною "Свободное общение -Алгоритм программы".

Program KR;

Uses crt;

Type
 Mymas=array[1..10] of integer;

Const
 mas:mymas = (1,9,3,8,5,10,7,4,2,6);

var
 i,a,b,min,max,m,n,z:integer;
 key:char;

label
 lab,lab1;

{===========================================================================}

Procedure  Elmas;
 begin
	writeln('ќ«Ґ¬Ґ*вл ¬ ббЁў :');
	for i:=1 to 10 do
	 write(mas[i],' ');
	 writeln('.');
 end;

{===========================================================================}

Procedure Vivodchet;
 begin
	b:=0;
	for i:=1 to 10 do
	 if odd(mas[i])=false then
		inc(b);
	writeln('Љ®«ЁзҐбвў® зҐв*ле зЁбҐ« = ',b,'.');
 end;

{===========================================================================}

Procedure MinMax;
 begin
	min:=mas[1];max:=mas[1];
	for i:=2 to 10 do
	 begin
		if mas[i]<min then
		 begin
			min:=mas[i];
			m:=i;
		 end;
		if mas[i]>max then
		 begin
			max:=mas[i];
			n:=i;
		 end;
	 end;
	Writeln('ЊЁ*Ё¬ «м*л© н«Ґ¬Ґ*в ¬ ббЁў  M[',m,']=',min);
	Writeln('Њ ЄбЁ¬ «м*л© н«Ґ¬Ґ*в ¬ ббЁў  M[',n,']=',max);
 end;

{===========================================================================}

Procedure Sort;
 Var
	p,j,k:integer;
	mas1:mymas;
 begin
	mas1:=mas;
	Writeln('Ћвб®авЁа®ў *лҐ зЁб«  ¬ ббЁў  Ї® ў®§а®бв *Ёо : ');
	for i:=1 to 9 do
	 begin
		p:=mas1[i];
		for j:=i+1 to 10 do
		 if mas1[j]<=p then
			begin
			 p:=mas1[j];
			 k:=j;
			 mas1[k]:=mas1[i];
			 mas1[i]:=p;
			end;
	 end;
	for i:=1 to 10 do
	 write(mas1[i],' ');
	writeln;
 end;

{===========================================================================}

Procedure MyWind(x1,y1,x2,y2,col:byte);
 begin
	Window(x1,y1,x2,y2);
	TextBackGround(col);
	clrscr;
 end;

{===========================================================================}

Procedure Menu;
 begin
	MyWind(64,4,79,15,1);
	TextBackGround(4);
	Writeln('     Њ…Ќћ      ');
	Writeln;
	TextBackGround(2);
	Writeln(' 1: ‚лў®¤.     ');
	Writeln(' 2: —Ґв*лҐ.    ');
	Writeln(' 3: MinMax.    ');
	Writeln(' 4: ‘®авЁа®ўЄ .');
	writeln;
	TextBackGround(6);
	Writeln(' 5: ‚л室.     ');
 end;

{===========================================================================}

begin

 MyWind(61,1,80,25,1);
 Menu;
 MyWind(1,1,60,25,5);

 GoToXY(29,1);
 TextBackGround(3);
 Writeln('Љ®*ва®«м* п а Ў®в  ь 1.');
 TextBackGround(5);
 Writeln;

 repeat
  lab: writeln('‚лЎҐаЁвҐ зЁб«® ®ЇҐа жЁЁ.');
  writeln;
  key:=readkey;
	if key>'5' then
	 begin
		writeln('‘гйҐбвўгҐв ўбҐЈ® 5 ®ЇҐа жЁЁ, Ї®¦ «г©бв  ўўҐ¤ЁвҐ зЁб«® *ҐЎ®«миҐ "5".');
		writeln;
		goto lab;
   end;
  case key of
	 '1':Elmas;
   '2':Vivodchet;
   '3':MinMax;
   '4':Sort;
  end;
 until key='5';
 lab1:
end.

[HOMER]

Я чё то не смекаю, теб блок схема нужна?

[puporev]

И приведи в порядок русский текст, а то на код даже смотреть неохота.