[lmikle]

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

Код:

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]));