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

var
  a: array[1..5, 1..4] of integer;
  i, j, max, min, imax: integer; 
  jmax, imin,jmin, tmp: integer;
 
begin
  for i := 1 to 5 do
    for j := 1 to 4 do
      read(a[i, j]);
 
  for i := 1 to 5 do
  begin
    for j := 1 to 4 do 
      write(a[i, j]:4, ' ');
    writeln;
  end;
 
  max := a[1, 1];
  for i := 1 to 5 do
    for j := 1 to 4 do
    begin
      if max < a[i, j] then
      begin
        max := a[i, j];
        imax := i;
        jmax := j
      end;
  
      min := a[1, 1];
      if min > a[i, j] then
      begin
        min := a[i, j];
        imin := i;
        jmin := j
      end;
    end;
 
  write('max = ', max); 
  writeln(' a=[', imax, ',', jmax, ']');
  write('min = ', min);
  writeln(' a=[', imin, ',', jmin, ']');
 
  for j := 1 to 4 do
  begin
    tmp := a[imax, j];
    a[imax, j] := a[imin, j];
    a[imin, j] := tmp;
  end;
 
  for i := 1 to 5 do
  begin
    for j := 1 to 4 do 
      write(a[i, j]:4, ' ');
    writeln;
  end; 
  readln;  
end.