В целочисленной матрице nxn найти номера строк с одинаковыми элементами, и с элементами, расположенными по возрастанию

for i:=1 to n do
  begin
   kl1:=1;
   kl2:=1;
   for j:=2 to n do
    begin
     if (a[i,j]<>a[i,j-1]) then kl1:=0;
     if(a[i,j]<=a[i,j-1]) then kl2:=0;
    end;
    if (kl1=1) then writeln("v stroke - ",i," vse elementy ravni");
   if (kl2=1) then writeln("v stroke - ",i," vse elementy po vozrastaniy");
  end;

const
  n=3;
type
  TMatrix=array[1..n,1..n] of Integer;
var
  A: TMatrix;
  i,j,x: Integer;
  ok: boolean;
begin
  for i:=1 to n do
    for j:=1 to n do begin
      write('A[',i,',',j,'] = '); readln(A[i,j]);
    end;
  write('Номера строк с одинаковыми элементами: ');
  for i:=1 to n do begin
    ok:=true;
    x:=A[i,1];
    for j:=2 to n do
      if A[i,j]<>x then begin
        ok:=false;
        break;
      end;
    if ok then
      write(i, ' ');
  end;
  writeln;
  readln;
end.