Завтра последний день экзамента мне надо принести программу: опредедить номера строк матрицы в которых элементы в которых элементы расположены в порядке убывания

program raf105;

const

 n = 3;

var

 m: array[1..n, 1..n] of integer;

 x: boolean;

 i,j: integer;

begin

 writeln('Матрица:');

 for i:=1 to n do

 begin

   x:= True;

   for j:=1 to n do

   begin

     m[j,i]:= random(10,99);

     write(m[j,i],' ');

   end;

   writeln;

 end;

 writeln('Номера убывающих строк:');

 for i:=1 to n do

 begin

   x:= True;

   for j:=2 to n do

     if not(m[j,i] < m[j-1,i]) and x then

       x:= False;

   if x then

     write(i,' ');

 end;  

end.