Инверсия в двухмерной матрице. Паскаль

[Safary]

Возникла небольшая проблемка, помогите решить. Мне надо найти кол-во инверсий при условии, что инверсия - A[i,m]>A[i,m+1]. с этим я вроде справилась. После мне нужно получить массив С1,С2,С3....Сn по правилу Сi=1 если в i-строке инверсий больше 2-х, если условие не выполняется то Сi=0. Я не понимаю условие, не могли бы помочь? Код инверсии. Кстати как вывести матрицу на экран построчно?

{i,m- индексы, k-кол-во инверсийб x,j,n-вспомогательные переменные}
var a: array[1..5,1..3] of integer;
    i,m,k,j,x, n:integer;
begin

   randomize;
   for i:=1 to 5 do
   for m:=1 to 3 do
     a[i,m]:= random(9)+1;
   for i:=1 to 5 do
   for m:=1 to 3 do
     write('  ',a[i, m]);readln;
   for i:=1 to 4 do
   for m:=1 to 2 do
      begin
         for j:=1 to 4 do
         for n:=1 to 2 do
             if a[j,n]>a[j,n+1] then
                 begin
                    x:=a[j,n];a[j,n]:=a[j,n+1];a[j,n+1]:=x;k:=k+1;
                 end;
      end;
write('k=',k);readln
end.

[Safary]

Не могу понять работает правильно у меня прога или нет?))))) ещё один вариант с построчным выводом:

{i,m- индексы, k-кол-во инверсийб x,j,n-вспомогательные переменные}

var a: array[1..5,1..3] of integer;
    i,m,k,j,x,n:integer;
begin

   randomize;
   for i:=1 to 5 do
   for m:=1 to 3 do
     a[i,m]:= random(9)+1;
   for i:= 1 to 5 do
   begin
    writeln('');
    for m:=1 to 3 do
    write(A[i, m], ' ');
    end;
   for i:=0 to 4 do
   for m:=0 to 2 do
      begin
         for j:=0 to 4 do
         for n:=0 to 2 do
             if a[j,n]>a[j,n+1] then
                 begin
                    x:=a[j,n];a[j,n]:=a[j,n+1];a[j,n+1]:=x;k:=k+1;
                 end;
      end;
write('k=',k);readln
end.

[AlexanderPeshkov]

если я правильно понял то будет примерно так
var a: array[1..5,1..3] of integer;
i,m,k,j,x,n,count:integer;
c:array[1..5]of integer;
begin

randomize;
for i:=1 to 5 do
for m:=1 to 3 do
a[i,m]:= random(9)+1;
for i:= 1 to 5 do
begin
writeln('');
for m:=1 to 3 do
write(A[i, m], ' ');
end;
for i:=0 to 4 do че то я не пойму зачем тебе эти два цикла???
for m:=0 to 2 do
begin
for j:=0 to 4 do
begin
count=0;
for n:=0 to 2 do
if a[j,n]>a[j,n+1] then
begin
x:=a[j,n];a[j,n]:=a[j,n+1];a[j,n+1]:=x;k:=k+1;succ(count);
end;
if count>2 then
c[j]:=1
else
c[j]:=0;
end;
end;
write('k=',k);readln
end.

[Safary]

спасибо большое)))) чуть чуть подправила, оптимизировала и всё заработало)