задача на delphi

Раз все значит цикл

Сначала найди цифры которые  в строке матрицы больше за предыдущую начиная с второй n:=2. Проверка на прирост. И дальше в тех случаях если (if ... then... ) прирост наблюдается и дальше(проверка цифры с индексом k:=n+1), то это особенная цифра. Индекса которой кидаются в какую нибудь матрицу.
Потренируйся на однострочной матрице чтоб не путаться с индексами,  а далее когда овладеешь логикой идеи организуй для матрицы.

примерно так:
var
 k, i, j: Integer;
 m, n: Integer;
 a: array of array of Integer;
 function isSpecial(i, j: Integer): Boolean;
 var
   s: Integer;
 begin
   Result := True;
   s := j;
   while j > 0 do
   begin
     if a[i, j - 1] >= a[i, j] then
     begin
       Result := False;
       Exit;
     end;
     Dec(j);
   end;
   j := s;
   while j < m-1 do
   begin
     if a[i, j + 1] <= a[i, j] then
     begin
       Result := False;
       Exit;
     end;
     Inc(j);
   end;
 end;
begin
 //заполнение данных
 randomize;
 n := 4;
 m := 3;
 SetLength(a, n);
 for i := 0 to n - 1 do
 begin
   SetLength(a[i], m);
   for j := 0 to m - 1 do
     a[i, j] := random(5);
 end;
 //поиск особых
 k := 0;
 for i := 0 to n - 1 do
   for j := 1 to m - 2 do
     if isSpecial(i, j) then
       Inc(k);
 //вывод k сами
end;