Нужны блок схемы по готовой программе.

[Profan4ik]

Нужны блок схемы по каждой процедуре и общую блок схему по программе.

Текст программы.
uses
CRT;
Type
mas=array [1..100,1..100] of integer;
var
a:mas;
b:mas;
i,j,n,m,imin,jmin,min,sum,k,kol:int eger;
sr:real;
Procedure proizv(kl:mas; Var kl2:mas);
begin
writeln('massiv posle ymnoweniya: ');
for i := 1 to n do
begin
for j:=1 to m do
begin
kl2[i,j]:=round(kl[i,j]*1.5);
write(kl2[i,j]:3,' ');
end;
writeln;
end;
end;
procedure ABSMinEl(Var kl2:mas);
begin
imin:=1;
jmin:=1;
min:=kl2[1,1];
for i:=1 to n do
for j:=1 to m do
if kl2[i,j]<min then
begin
min:=kl2[i,j];
imin:=i;
jmin:=j;
end;
writeln;
writeln('MIN[',imin,';',jmin,']:=',min,' ');
end;
procedure proizv2(Var kl:mas);
begin
sum:=0;
kol:=0;
for i:=1 to n do
for j:=1 to m do
if kl[i,j]<min then
begin
sum:=sum+kl[i,j];
inc(kol);
end;
if kol<>0 then
begin
sr:=sum/kol;
writeln('srednee arifmeti4eskoe elementov massiva G6, menwix 4em GSmin:=',sr:1:3)
end
else writeln('V massive net elementov menwe!!!');
end;
begin
Clrscr;
Randomize;
write('Vvedite kolli4estvo strok: ');
readln(n);
write('Vvedite kolli4estvo stolbcov: ');
readln(m);
writeln('Isxodnaya matrica: ');
for i := 1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=Random(15);
write(a[i,j]:2,' ');
end;
writeln;
end;
writeln;
proizv(a,b);
writeln;
ABSMinEl(b);
writeln;
proizv2(a);
readkey;
end.

Я вообще неврубаюсь как их можно делать. Помогите кто сможет.

[ROMA2PVT]

Уууу!Старый знакомый.Всё ещё с этой программой мучаетесь.
P.S:добавляйте блоки описания переменных.И начало процедур делайте в той фигуре (с именем процедуры) в которой происходит вызов процедуры в программе.

[Profan4ik]

Ну спасибо тебе. Преподавателя неустраивало как роботала программа. Он заставил меня делать схемы. Ему же не доказать что паскаль работает не качественно.

[ROMA2PVT]

<<offtop>>
Ты ему нормальный TP посоветуй скачать и установить чтобы не вытыкивался.

[Stilet]

Ему же не доказать что паскаль работает не качественно.

Во-первых: "Не" раздельно с глаголами пишется а не с прилагательными
Во-вторых: Паскаль работает качественно - некачественно работает программа, написанная кривыми руками.