Объяснить

[KIRILOW]

Вот код.Вопрос:что обозначает каждый из этих операторов(которые обведены? (для чего,зачем они)

const n = 10;
var
i,j,c,max,maxj:integer;
a:array[1..n,1..n]of integer;
begin
  for i:=1 to n do
    begin
        for j:=1 to n do 
        begin
            if (i>=j)and(i<=n+1-j) then
                a[i,j]:=0
            else
                a[i,j]:=random(n)+1;
        end;
    end;

    for i:=1 to n do
    begin
        for j:=1 to n do 
        begin
            write(a[i,j]:4);
        end;
        writeln;
    end;

    max := 0;
    maxj := 1;
    for j:=1 to n do
    begin
        c := 0;
        for i:=1 to n do 
        begin

            if(a[i,j] = 0) then
            begin
                inc(c);
            end;
        end;

        if(c > max) then
        begin
            max := c;
            maxj := j;
        end;
    end;
    
    writeln;
    writeln('max kolvo v stolbce = ', maxj);
    
    writeln;
    writeln('Stolbec:');
    for i:=1 to n do 
    begin
        write(a[i,maxj]:4);
        writeln;
    end;
    
    readln;
end.