Составить блок-схемы к нескольким программам

Program M2_C_2;
var s:array[1..6,1..4] of real;
MaxEl:real; i,j,maxI,MaxJ:byte;
 
begin
for i:=1 to 6 do
for j:=1 to 3 do begin
s[i,j]:=random(20)-10 end;
 
writeln('Ishodnaya matrica:'); {vivod matricy}
for i:=1 to 6 do
begin
FOR j:=1 to 3 do
WRITE(' s[',i,',',j,']= ',s[i,j]:3:0,' ');
WRITELN;
End;
writeln;
 
MaxEl:=s[1,1]; maxI:=1; MaxJ:=1; {sortiruem massiv}
 
for i:=1 to 6 do
for j:=1 to 3 do
if s[i,j]>Maxel then begin
MaxEl:=s[i,j]; maxI:=i; MaxJ:=j end;
 
writeln('Maksimalniy element matricy S[',maxI,',',MaxJ,']',Maxel); {vivod OTVETA}
end.

M2_І_28
uses crt;
var
a:array [1..20,1..20] of real;
i,j,min,z,m,n:integer;
begin
clrscr;
write('Введите размер матрицы MхN: '); read(m); clrscr; read(n); clrscr;
for i:=1 to m do
for j:=1 to n do
begin
a[i,j]:=random(10)-5;
end;
 
writeln('Исходная матрица ',m,'x',n,': ');
for i:=1 to m do
begin
FOR j:=1 to n do
WRITE(' a[',i,',',j,']=',a[i,j]:2:0,' ');
WRITELN;
End;
end.

Program M2_B_2;
var X:array[1..6,1..4] of real;
S:real; i,j:byte;
 
begin
for i:=1 to 6 do
for j:=1 to 3 do begin
X[i,j]:=random(10)-5 end;
 
writeln('Исходная матрица:'); {Вывод матрици}
for i:=1 to 6 do
begin
FOR j:=1 to 3 do
WRITE(' X[',i,',',j,']= ',X[i,j]:2:0,' ');
WRITELN;
End;
writeln;
 
S:=0; {Сортировка масива}
 
for i:=1 to 6 do
for j:=1 to 3 do
if X[i,j]<0 then S:=S+X[i,j];
 
writeln('Сумма видемых елементов S=',S); {Вывод ответа}
end.

Program M1_C_2;
 var
x,y:array[1..100]of integer;
nom,n,i,minx,miny,min:integer;
begin
readln(n);
randomize;
for i:=1 to n do
begin
x[i]:=random(20);
y[i]:=random(20);
writeln('x[',i,']=',x[i],'   y[',i,']=',y[i]);
end;
min:=maxint;
for i:=1 to n do
if (sqr(x[i])+sqr(y[i])<min )then
 begin
   min:=sqr(x[i])+sqr(y[i]);
   nom:=i;
   minx:=x[i];
   miny:=y[i];
 end;
writeln ('Точка номер ' ,nom,' x=',minx,' y=',miny);
readln;
end.