Нужны комментарии в программах

{Дана матрица размером NxM. Упорядочить ее строки по неубыванию суммы их элементов.}
uses crt;
Var N,M,i,j,S,Su,k,z,P:integer;
    A:array[1..5,1..5] of integer;
 Begin
  S:=0;
  Su:=0;
 
  writeln('vvedite');
  writeln('N');
  readln(N);
  writeln('M');
  readln(M);
   Randomize;
   for i:= 1 to N do //цикл для перебора всех строк
    begin
     writeln('');
     for j:= 1 to M do   //цикл для перебора всех столбцов
      begin
       A[i,j]:=Random(5);  // заполнение числами до 5
       write(A[i,j] : 4)  //интервал между цифрами равен 4
      end;
    end;
    readln;
   for i:= 1 to N do     //цикл для перебора всех строк
    begin
    if Su<S then
    for k:= 1 to M do
                  begin
                   P:=A[i-1,k];
                   A[i-1,k]:=A[i,k];
                   A[i,k]:=P;
                  end;
                 S:=0;
                 Su:=0;
    for j:= 1 to M do      //цикл для перебора всех столбцов
     begin
      S:=S+A[i,j];         //сумма элементов 1 строки
      Su:=Su+A[i+1,j];    // сумма элементов последующей строки
     end;
   end;
    for i:= 1 to N do     //цикл для перебора всех строк
    begin
     writeln('');
     for j:= 1 to M do   //цикл для перебора всех столбцов
       write(A[i,j] : 4)
    end;
   readln;
 End.