[lmikle]

так строка или столбец?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

var   C: array[1..N, 1..N] of integer; // первый - строка, второй - столбец   i ,j : integer;   cmp : integer; ...   cmp := -1;   for i := 1 To N Do     for j := 2 To N Do       if C[i,j] > C[i,j-1] Then         Begin           cmp := i;           Break;         End; ...   if cmp = -1 Then WriteLn('There is no such stings in the matrix')   Else Wirteln(Format('The sting index is %d',[cmp]));