Прокомментировать код

Program matrica; {название}
Сonst Nmax = 20; {определение неизменного максимума n и равняется 20}
Var A : Array [1..nmax, 1..nmax ] Of Real; {определение массива}
i,j,N,Nstr : Byte; { определение переменных лежащих в диапазоне от 0 до 255, целочисленные}
S,Smax : Real; { определение переменных лежащих в диапазоне от 2.9*10 в -39 степени до 1.7*10 в степени 38, вещественные переменные}
Begin {начало программы}
Writeln ('Ввести порядок матрицы <= ',nmax,' )'); {вывод подсказки}
Readln (n); {ввод данных}
For i:=1 To N Do {цикл}
Begin {количество операторов более одного, вспомогательный бегин}
Writeln ('Введите элементы ',i,'-й строки '); {подсказка}
For j:=1 To N Do Read (A[i,j]); {цикл}
S:=0; {присваивание значение переменной}
For j:=1 To N Do S:=S + A[i,j]; {цикл}
If i=1 Then {условие, которые выполняется при i=1}
Begin  {количество операторов более одного, вспомогательный бегин} 
Nstr:=1; {присваивание значение переменной}
Smax:=S; {присваивание значение переменной}
End {конец третьего вспомогательного бегина}
Else if S > Smax Then {происходит выполнение условия, в случае если i не равно 1}
Begin  {количество операторов более одного, вспомогательный бегин} 
Nstr:=i; {присваивание значение переменной}
Smax:=s; {присваивание значение переменной}
End; {конец  четвертого}
End;  {и второго вспомогательных бегинов}
Writeln ( 'Номер строки = ',nstr ); {вывод данных}
For j:=1 To N Do Write (A[nstr,j]:10:3); {массив на вывод данных}
Writeln; {вывод пустой строки}
End. {конец программы, конец основного бегина}