Блок-схема для программы на Pascal ABC

program fg;
var
  A: array [1 .. 100, 1 .. 100] of integer;
  n, i, j: integer;
procedure min(n: integer);
var
  i, j, p, pk, sum, index, mm: integer;
  ot, minki: array [1 .. 100] of integer;
begin
  pk := 1;
  for i := 1 to 100 do
    if i mod 2 = 0 then
    begin
      inc(pk);
      ot[pk] := i;
    end;
  index := 0;
  for p := 2 to ot[n] do
    if p <> n then
    begin
      sum := 0;
      for i := 1 to n do
        for j := 1 to n do
          if i + j - 1 = p then
            sum := sum + abs(A[i, j]);
      inc(index);
      minki[index] := sum;
      writeln('Сумма "', index, '" параллельной диагонали= ', sum);
    end;
  mm := minki[1];
  for i := 2 to index do
    if minki[i] < mm then
      mm := minki[i];
  writeln('Минимум из сумм диагоналей= ', mm);
end;
 
{ *********************///*************************** }
procedure sum(n: integer);
var
  i, j, rez: integer;
  m: boolean;
begin
  for j := 1 to n do
  begin
    m := true;
    for i := 1 to n do
      if A[i, j] < 0 then
        m := false;
    rez := 0;
    if m then
    begin
      for i := 1 to n do
        rez := rez + A[i, j];
      writeln('Сумма ', j, ' столбца= ', rez);
    end;
  end;
 
end;
 
{ *********************///*************************** }
begin
  write('Размер N= ');
  readln(n);
 
  for i := 1 to n do
    for j := 1 to n do
    begin
      write('A[', i, ',', j, ']=');
      readln(A[i, j]);
    end;
  writeln;
  writeln('Вот введённая вами матрица "A":');
  for i := 1 to n do
  begin
    writeln;
    for j := 1 to n do
      write(A[i, j]:3, ' ');
  end;
 
  writeln;
  writeln;
  sum(n); { ***1*** }
  writeln;
  min(n); { ***2*** }
 
end.