Блок схема Pascal

[Bakalavr]

Нужна блок схема по этому коду:

Program new_number;
const n=10;
type
  TArr = array[1..100] of integer;
var
  mass1, NewMass : TArr;
  i: integer;

{
  n - размерность массива, mass1 - исходный массив,
  NewMass - будет состоять из отсотртированных элементов массива mass1
}

procedure NewNSort(var mass, Nmass: TArr; size: integer);
var i, j, NewN: integer;
begin
  for i := 1 to size do begin
    NewN := 0;
    for j := 1 to size do
      if (mass[j]<mass[i]) or ((mass[j]=mass[i]) and (j<=i)) then inc(NewN);
    Nmass[NewN] := mass[i];
  end;
end;
begin
for i:=1 to n do readln(mass1[i]);
NewNSort(mass1,NewMass,n);
for i:=1 to n do writeln(NewMass[i]);
readln;
end.

[Stilet]

Попробуй скормить код программе FCEditor

[Bakalavr]

Сообщение от Stilet

Попробуй скормить код программе FCEditor

Спасибо помогло)