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

Дана целочисленная квадратная матрица порядка n. Найти номера строк, элементы которых образуют монотонную последовательн
Вот мой программа:

uses crt;
const N=3;
var i,j,x:integer;
f:boolean;
a:array [1..n, 1..n] of integer;
begin
clrscr;
Writeln('Введите значения элементов');
for i:=1 to n do begin
for j:=1 to n do
readln(a[i,j]);
end;
for i:=1 to n do begin
for j:=1 to n-1 do begin
if a[i,j]a[i,x+1] then f:=true
else f:=false;
if f=false then break;
break;
end;

end;
if f=true then writeln(i,' строка монотонная');
end;
end.

  • 1. Код на pastebin.com , пожалуйста.
    2. "Программа неправильная" - это не описание проблемы. Что именно заставляет тебя считать эту программу неправильной?
    3. С булевскими переменными легче работать так:
    var isMonotone;
    ...
    isMonotone:=false;
    if not isMonotone then break;
    if isMonotone then writeln('Монотонная');

    значительно легче читается, правда?
    4. Тут нужно создать две булевские переменные - есть ли монотонность и в какую сторону монотонность.