Найти сумму элементов матрицы и подсчитать число строк, в которых элементы упорядочены по возрастанию

var
  A: array of array of integer;
  S, k, i, j, n: integer;
  p: boolean;
 
begin
  S := 0; k := 0; p := true;
  write('n=');
  readln(n);
  
  setlength(A, n);
  for i := 0 to n - 1 do
    setlength(A[i], n);
  
  for i := 0 to n - 1 do
    for j := 0 to n - 1 do
      A[i, j] := random(10);
  
  for i := 0 to n - 1 do
  begin
    for j := 0 to n - 1 do
      write(A[i, j]:4);
    writeln;
  end;
  
  for i := 0 to n - 1 do
  begin
    for j := 0 to n - 1 do
    begin
      S := S + A[i, j];
      while j < n - 1 do 
        if A[i, j] > A[i, j + 1] then p := false;
    end;
    if p = true then k := k + 1;
  end;
  writeln('S=', S);
  writeln('k=', k);
end.

var
  A: array[1..100,1..100]of integer;
  S, k, i, j, n: integer;
  p: boolean;
 
begin
randomize;
  S := 0; k := 0; p := true;
  write('n=');
  readln(n);
 
  for i := 1 to n do
    for j := 1 to n do
      begin
      A[i, j] := random(20);
     s:=s+a[i,j];
     end;
  for i := 1 to n do
  begin
    for j :=1 to n do
      write(A[i,j]:4);
    writeln;
  end;

var
  A: array[1..100,1..100]of integer;
  S, k, i, j, n: integer;
  p: boolean;
 
begin
randomize;
  S := 0; k := 0; p := true;
  write('n=');
  readln(n);
 
  for i := 1 to n do
    for j := 1 to n do
      begin
      A[i, j] := random(20);
     s:=s+a[i,j];
     end;
  for i := 1 to n do
  begin
    for j :=1 to n do
      write(A[i,j]:4);
    writeln;
  end;
for i := 1 to n do
  begin
p:=true;    
for j = 2 to n  do
      if A[i, j] <= A[i, j -1] then p := false;
       if p then inc(k);
  end;
  writeln('S=', S);
  writeln('k=', k);
end.