паскаль(массивы)

[Лунатик13]

Привет.Помогите пожалуйста. Скажите что тут не так и напишите как надо правильно.Вот задача: Дана матрица "С" размером N на M.Определить количество "особых элементов" матрицы,считая элемент особым,если в его строке слева от него находятся элементы, меньше его, а справа больше.

const n=4; m=4;

   type
   Tmas= array[1..n,1..m] of integer;
   var
   mas: Tmas;
   i,j,k,l: integer;
   begin
   randomize;
   for i := 1 to n do
   for j := 1 to m do
   mas [i] [j]:=random (10);
   for i := 1 to n do
   begin
  for j := 1 to m do
    write (mas[i][j]);
    writeln;
   end;
   for i :=1 to n do
    begin

      for j := 1 to m do
        begin
    k:=((j-1)mod m);
l:=((j+1)mod m);
  if ((mas [i][j]>mas[i][k]) and (mas[i][j]<mas[i][l])) then
  writeln ('stroka',i,'stolbec',j,'element',mas[i][j]);
  end;
   end;
   readln;
   end.

[whatever]

Если я правильно понял задание, то вот так:

const
  n=4;
  m=4;
type
  Tmas= array[1..n,1..m] of integer;
var
  mas: Tmas;
  i,j,k,l: integer;
begin
  randomize;
  for i := 1 to n do
    for j := 1 to m do
      mas [i] [j]:=random (10);
  for i:=1 to n do
    begin
      for j:=1 to m do
        write(mas[i][j],'  ');
      writeln;
    end;
  for i :=1 to n do
    begin
      for j:=2 to m-1 do //по определению первый и m'ый элемент не могут быть особыми, их не проверяем
        begin
          //k:=((j-1)mod m);  //ололо?
          //l:=((j+1)mod m);  //зачем так изощряться?
          if ((mas[i][j]>mas[i][j-1]) and (mas[i][j]<mas[i][j+1])) then
            writeln ('stroka ',i,' stolbec ',j,' element ',mas[i][j]);
        end;
    end;
  readln;
end.