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

const diapazonchik=100;
type    matr=array[1..100,1..100] of real;
var     Neo:matr;
        i,j,size:integer;
        zadannayaVelichina:real;
procedure moyaLybimenkayaProcedurochka(var Neo:matr; size,colA,rowA,rowB:integer);
    var tmp:real;
        i,j:integer;
    begin
        tmp := (Neo[rowB,colA])/(Neo[rowA,colA]);
        for j:=colA to size do
            begin
                Neo[rowB,j] := Neo[rowB,j] - tmp*Neo[rowA,j];
            end;
    end;    
procedure gaussik(var Neo:matr; size:integer);
    var i,j:integer;
    begin
        for j:=1 to size-1 do
            begin
                for i:=j+1 to size do
                    begin
                        moyaLybimenkayaProcedurochka(Neo,size,j,j,i);
                    end;
            end;
    end;
procedure output(Neo:matr; size:integer);
    var i,j:integer;
    begin
        for i:=1 to size do
            begin
                for j:=1 to size do
                    begin
                        write(Neo[i,j]:4:0,' ');
                    end;
                writeln();
            end;
        writeln();
    end;
function kolichestvoStrochekMenisheZadannoyVelichini(Neo:matr;size:integer;zadannayaVelichina:real):integer;
    var i,j,k:integer;
        srArif:real;
    begin
        k:=0;//k - это переменная, в которой хранится количество строк, у которых среднеарифметическое элементов меньше заданной величины, а в конце значение этой переменной возвращается :)
        for i:=1 to size do
            begin
                srArif:=0;//srArif - это переменная, в которой хранится среднеарифметическое значение :)
                for j:=1 to size do
                    begin
                        srArif := srArif + Neo[i,j];
                    end;
                srArif := srArif / size;
                if (srArif<zadannayaVelichina) then 
                    begin
                        k := k + 1;
                    end;
            end;
        kolichestvoStrochekMenisheZadannoyVelichini:=k;
    end;
begin
    writeln('Введите размер матрицы (1-100)');
    readln(size);
    if (size>=1)and(size<=100) then
        begin
            
            for i:=1 to size do
                begin
                    for j:=1 to size do
                        begin
                            Neo[i,j] := random(diapazonchik)+1;
                            write(Neo[i,j]:4:0,' ');
                        end;
                    writeln();
                end;
            writeln('Введите значение');
            readln(zadannayaVelichina);
            writeln('Кол-во строк ',kolichestvoStrochekMenisheZadannoyVelichini(Neo,size,zadannayaVelichina));    
            gaussik(Neo,size);
            output(Neo,size);
        end
    else
        begin
            writeln('Ошибка!!! :( Матрица не может быть размера большего, чем 100 и меньшего чем 1');
        end;
    
    
end.