Нарисовать блок схему к коду

program gjgjg;
const g=3;
n=4;
var a:array[1..g,1..n]of integer=((3,5,7,9),(1,4,6,-2),(2,-1,2,1));
b:array[1..3,1..4] of integer;
i,j,k,y,u:integer;
max,min:integer;
begin
  for i:=1 to g do
  begin
    for j:=1 to n do
    begin
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  max:=a[1,1];
  min:=a[1,1];
  for i:=1 to g do
  for j:=1 to n do
  begin
    if a[i,j]>max then max:=a[i,j];
   if a[i,j]<min then min:=a[i,j];
  end;
  writeln('all max and min');
   writeln('max=',max);
  writeln('min=',min);
  for i:=1 to g do
    for j:=1 to n do
      begin
      for y:=1 to n-1 do
          if a[i,y]>a[i,y+1]then begin
            k:=a[i,y];
            a[i,y]:=a[i,y+1];
            a[i,y+1]:=k
          end;
          end;
          writeln;
          for i:=1 to g do
            begin
            for j:=1 to n do
            begin
              write(a[i,j]:4);
            end;
            writeln;
            end;
             for i:=1 to g do
    for j:=1 to n do
      begin
      for y:=1 to n-1 do
          if a[1,y]<a[1,y+1]then begin
            k:=a[1,y];
            a[1,y]:=a[1,y+1];
            a[1,y+1]:=k;
            end;
            for y:=1 to n-1 do
              if a[3,y]<a[3,y+1]then begin
            k:=a[3,y];
            a[3,y]:=a[3,y+1];
            a[3,y+1]:=k
          end;
          end;
          writeln;
          for i:=1 to g do
            begin
            for j:=1 to n do
            begin
              write(a[i,j]:4);
            end;
            writeln;
            end;
            begin
             max:=a[1,1];
  min:=a[1,1];
  for i:=1 to g do
  for j:=1 to n do
  begin
    if a[1,j]>max then max:=a[i,j];
   if a[1,j]<min then min:=a[i,j];
    end;
    writeln('max and min first line');
   writeln('max=',max);
  writeln('min=',min);
  end;
  writeln;
    max:=a[3,1];
  min:=a[3,1];
  for i:=3 to g do
  for j:=1 to n do
  begin
    if a[3,j]>max then max:=a[i,j];
   if a[3,j]<min then min:=a[i,j];
    end;
    writeln('max and min third line');
   writeln('max=',max);
  writeln('min=',min);
end.