Модули,процедуры и функции

uses crt;
      const n=6;{размер матрицы, если квадратная, если нет, надо 2 размера}
      var m:array[1..n,1..n] of real;{тип матрицы}
          i,j,imax:byte;{счетчики циклов, номер строки с макс. суммой полож. }
          max,sum,b:real;{макс. сумма,текущая сумма, буфер для обмена при сортировке}
      begin
      clrscr;
      rаndomize;
      writeln('Ishodnaya matrica:');
      for i:=1 to n do
        begin
          for j:=1 to n do
            begin
             m[i,j]:=4*random-2;{интервал от (0 до 4)-2=(от -2 до 2)}
             write(m[i,j]:6:2);
            end;
          writeln;
        end;
      writeln;
      max:=0;imax:=1;{поиск строки с макс. суммой полож.}
      for i:=1 to n do
        begin
          sum:=0;
          for j:=1 to n do
          if m[i,j]>0 then sum:=sum+m[i,j];{если в строке элемент полож., то складываем}
          if sum>max then{если сумма больше чем до этого}
            begin
              max:=sum;{то она макс}
              imax:=i;{запоминаем номер строки}
            end;
         end;
      writeln('Max summa polozitelnyh elementov v stroke ',imax,' = ',max:0:2);
      writeln;
      for i:=1 to n-1 do{сортировка строки методом пузырька(обменная сортировка)}
      for j:=i+1 to n do
      if m[imax,i]<m[imax,j] then{по убыванию, если >, то будет по возрастанию}
 
        begin
          b:=m[imax,i];{запоминаем}
          m[imax,i]:=m[imax,j];{меняем}
          m[imax,j]:=b;{вставляем}
        end;
      writeln('Izmenennaya matrica:');
      for i:=1 to n do
        begin
          for j:=1 to n do
          write(m[i,j]:6:2);
          writeln;
        end;
      readln
      end.