Нужна помощь!

[Jimmy23]

Сформировать исходную квадратную матрицу произвольного размера.
Элементы строк матрицы увеличить на средние значения положительных элементов своих строк. Вычислить сумму вез элементов матрицы. Сформировать массив из элементов, расположенных выше главной диагонали. Вычислить количество отрицательных элементов полученного массива.

[newerow1989]

var i,j,len,k:integer;
    p:array of array of real;
    a:real;
begin
   Randomize;
   len:=5+Random(8);
   SetLength(p,len,len);
   For i:=0 to len-1 do
   begin
      For j:=0 to len-1 do
      begin
         p[i,j]:=-10+Random(20)+Random;
         Write(p[i,j]:5:2,'  ');
      end;
      Writeln;
   end;
   Writeln;
   For i:=0 to len-1 do
   begin
      a:=0;
      k:=0;
      For j:=0 to len-1 do
         If p[i,j]>0 then
         begin
            a:=a+p[i,j];
            k:=k+1;
         end;
      If k>0 then
         a:=a/k;
      For j:=0 to len-1 do
      begin
         p[i,j]:=p[i,j]*a;
         Write(p[i,j]:5:2,'  ');
      end;
      Writeln;
   end;
   Writeln;
   a:=0;
   For i:=0 to len-1 do
      For j:=0 to len-1 do
         a:=a+p[i,j];
   Writeln('sum = ',a:5:2);
   Writeln;
   For i:=0 to len-1 do
      For j:=i+1 to len-1 do
         Write(p[i,j]:5:2,'  ');
   Writeln;
   Writeln;
   k:=0;
   For i:=0 to len-1 do
      For j:=0 to len-1 do
         If p[i,j]<0 then
            k:=k+1;
   Writeln('otr = ',k);
   Readln;
end.