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

Program kursovaya;
const
  n = 12; m = 12; k1 = -50; k2 = 50;
type
  matr = array[1..n, 1..m] of integer;
  mas = array[1..m] of integer;
var
  a, c1: mas;
  b, c: matr;
  i, j, min, k, r, sum, tmp : integer;
  
begin
          {Первое задание}
  writeln('Matrica "B":');
   for i := 1 to n do
begin
   for j := 1 to m do
begin
     b[i, j] := trunc((k2 - k1) * random + k1);
     write(b[i, j]:5);
end;
     writeln;
end;
     writeln;
          {Второе задание}
     writeln('Massiv "A":');
   for i := 1 to n do
begin
     k := 1;
     while b[k, i] < 0 do
     inc(k);
     min := b[k, i];
   for j := 1 to m do
begin
   if b[j, i] > 0 then
   if b[j, i] < min then
     min := b[j, i];
end;
     a[i] := min;
end;
   for i := 1 to m do
     write(a[i]:5);
     writeln;
     writeln;
          {Третье задание}
     writeln('Matrica "C":');
   for i := 1 to n do
begin
   for j := 1 to m do
begin
     c[i, j] := b[i, m + 1 - j];
     write(c[i, j]:5);
end;
     writeln;
end;
         {Четвертое задание}
   for i:=1 to n do
begin
   for j:=1 to m do
begin
   if i mod 2<>0 then sum:=sum+b[i,j];
end;
end;
     writeln;
     writeln('Сумма нечетных строк массива C1 = ',sum);
 
        {Пятое задание}
   for i:=1 to n do
begin
   for j:=1 to m do
begin
end;
     writeln;
   for k:=1 to m do
   for i:=2 to n do
   for j:=n downto i do
   if c[j,k]>c[j-1,k] then
begin
     tmp:=c[j,k];
     c[j,k]:=c[j-1,k];
     c[j-1,k]:=tmp;
end;
 
     writeln('Упорядоченные по убыванию элементы каждого нечетного столбца матрицы C:');
   for i:=1 to n do
begin
   for j:=1 to m do
   if j mod 2 <> 0 then
     write(c[i,j]:5);
     writeln;
end;
     readln;
end;
     writeln;
end.