Дана матрица размером m*n, определить количество и координаты особых элементов матрицы. Элемент считается особым, если он больше суммы остальных элементов своего столбца и при этом в его строке слева от него находятся элементы меньше него, а справа больше него. (Особый элемент может быть крайним в строке) — Pascal(Паскаль)

program zad2;
uses crt;
type Zx=array[1..3,1..3] of integer;
var i,j,m,n,k,s: integer;
z: Zx;
Begin
clrscr;
{ read(m,n);
setlength(z,m,n);}
for i:=1 to 3 do
for j:=1 to 3 do
Begin
write(i,',',j,'=');
read(z[i,j]);
End;
for i:=1 to 3 do
for j:=1 to 3 do
Begin
s:=0;
begin
for k:=1 to 3 do
s:=z[k,j]+s;
s:=s-z[i,j];
if (j=1) or (j=3) then
begin
if (j=1) then
begin
if (z[i,j]>s) and (z[i,j]<z[i,j+1]) then
writeln('Osobyi element:',i,',',j,'=',z[i,j]);
end;
if (j=3) then
begin
if (z[i,j]>s) and ((z[i,j]>z[i,j-1])) then
writeln('Osobyi element:',i,',',j,'=',z[i,j]);
end;
end
else
if (z[i,j]>s) and ((z[i,j]>z[i,j-1]) and (z[i,j]<z[i,j+1])) then
writeln('Osobyi element:',i,',',j,'=',z[i,j]);
end;
end;
readkey;
End.