Пожалуйсто помогите в Delphi

[Saaashka]

Задана матрица размером NxM. Определить k – количество “особых” элементов матрицы, считая элемент “особым”, если в его строке слева от него находятся элементы, меньшие его, а справа – большие.

[alex_fcsm]

В Delphi несложно перевести

uses crt;
const m=5;n=5;
var a,b:array[1..m,1..n]of integer;
    i,j,sum:integer;

begin
clrscr;
randomize;
for i:=1 to m do
begin
 for j:=1 to n do
  begin
   a[i,j]:=random(100);
   write(a[i,j]:4);
  end;
 writeln
end;
writeln('======================');
sum:=0;
for i:=1 to m do
 for j:=2 to n-1 do
  if (a[i,j]>a[i,j-1]) and (a[i,j]<a[i,j+1]) then inc(sum);
writeln;
writeln(sum);
end.