Комментарии к коду

[КОЛЬяН]

Ребята, всем привет! Выручите пожалуйста, может оставить комментарии к коду программы? не буду говорить что я сам весь код делал, мне помогли но ничего не объяснили)) думал по вашим комментариям смогу понять хоть, что к чему)) большое спасибО!

Прошу прощения. Вот код:

const n=6;m=8;                        
    var                                           
    a:array [1..n,1..m] of integer; 
    b: array [1..m] of real;           
    i,j:integer;                             
    begin 
    randomize;                            
    write('Massiv a:'); 
    writeln; 
    writeln;
    for i:=1 to n do                     
    for j:=1 to m do                   
    a[i,j]:=random (50); 
    for i:=1 to n do        	  
    begin
    for j:=1 to m do                 
    write (a[i,j]:5);
    writeln;
    writeln;
    end;
    write('Massiv b:');
    writeln;
    writeln;
    for i:=1 to n do		   
    begin
    b[i]:=0;
    for j:=1 to m do		  
    begin
    b[i]:= b[i] + a[i,j];
    end;
    b[i]:= b[i]/m;
    writeln('Srednee ', i, ' stroki =', b[i]:10:2);
    end;
    end.

[Aleksandr H.]

for i:=1 to n do идем по строках вниз
begin
b[i]:=0; обнуляемо елемент на позиции и
for j:=1 to m do идем по столбцах вправо
begin
b[i]:= b[i] + a[i,j]; получаем сумму с накоплением по ряду
end;
b[i]:= b[i]/m; делим суму на количество столбцов - получаем среднее строки и
writeln('Srednee ', i, ' stroki =', b[i]:10:2); вывод результата
end;

[КОЛЬяН]

Aleksandr H., Спасибо большое Вам! Который раз выручаете))