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

[kardan]

1)program ZET;
uses crt;
var max:integer;
M:array [1..10,1..10] of integer;
sum:integer;
i,j:integer;
n:integer;
begin
clrscr;
textcolor(14);
gotoxy(28,2);
writeln ('ЪДДДДДДДДДДДДДДДДДДДДДДДДДДї ');
gotoxy(28,3);
writeln ('і vvedite razmer matrici: і ');
gotoxy(28,4);
writeln ('АДДДДДДДДДДДДДДДДДДДДДДДДДДЩ');
gotoxy(54,3);
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write('m[',i,',',j,']=');
readln(M[i,j]);
end;
for i:=1 to n do begin
for j:=1 to n do write(m[i,j]:4);
writeln;
end;
for i:=2 to n do
for j:=1 to i-1 do
if (i=2) or (M[i,j]>max) then max:=M[i,j];
sum:=0;
for i:=1 to n do
for j:=i to n do if M[i,j]>max then Sum:=Sum+M[i,j];
writeln(Sum);
readln;
end.
2)================================= =========================
Program perestanowki;
uses crt;
const mm = 100;
var
m, i, j, k, n : integer;
a, p : array[1..mm] of integer;
begin
textcolor(14);
clrscr;
gotoxy(18,2);
writeln ('ЪДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД ДДДДДДДДДДДДДДї ');
gotoxy(18,3);
writeln ('і vvedite chislo elementov dly perestanovki: і ');
gotoxy(18,4);
writeln ('АДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД ДДДДДДДДДДДДДДЩ ');
gotoxy(62,3);
readln(m);
gotoxy(1,7);
writeln('vvedite elementi massiva a[1..m]');
for i := 1 to m do
begin
write('vvedite ', i, '- element '); readln(a[i]);
p[i] := i
end;
for i := 1 to m do write(a[i], ' '); writeln;
for i := m - 1 downto 1 do
if p[i] < p[i+1] then
begin
n := p[i];
for j := m downto i do
if n < p[j] then
begin
p[i] := p[j]; p[j] := n;
k := 1;
while i + k < m - k + 1 do
begin
n := p[i+k];
p[i+k] := p[m+1-k];
p[m+1-k] := n;
k := k + 1
end;
j := i
end;
for i := 1 to m do write(a[p[i]]:4);
writeln
end;
readln;
end.

[Povar]

ты программку по меньше не мог написать , а так тебе надо построить блок схему,