Поясните как сосчитать кол-во строк по условию?, Не бросайте меня! Опции

[Pavel]

В добавленном файле есть та самая программа о которой пойдёт речь далее.
Задача: Нужно подсчитать сумму всех элементов матрицы, также подсчитать сумму строк, удовлетворяющих условию: A[i,1]<A[i,2]<...<A[i,n]
У меня проблема с подсчётом количества строк! помогите пожалуйста!

Код

program a_2_5_2_1;
uses crt;
var
n,i,j,k:integer;
a:array [1..100,1..100] of real;
      s:real;
begin
      textcolor(yellow);
clrscr;
      s:=0;
      k:=0;
      writeln('vvedi razmer matricy=');
      read(n);
      for i:=1 to n do
      for j:=1 to n do
        begin
        write('vvedite a[',i,',',j,']=');
                readln(a[i,j]);
                s:=s+(a[i,j]);
                end;
           Writeln('');
for i:=1 to n do
 Begin
  writeln;
  for j:=1 to n do
   Write(a[i,j]:5:0);
   writeln('');
         end;
        for j:=1 to n do
        for i:=1 to n do
        begin
          if (a[i,j]<a[i,j+1]) then begin
          k:=k+1;
          end;
          end;
        textcolor(15);
        writeln('');
        writeln('vyvod:',s:1:1);
        writeln('');
        writeln('stroki:',k:1);
       textcolor(green);
       Writeln('');
       writeln('Thank you for use my program!');
       readkey;

           End.