Пожалуйста, помогите, срочно надо!Для клетки с координатами (x, y) в таблице размером M × N выведите координаты ее соседей. Соседними называются клетки, имеющие общую сторону. Решить надо в паскале!

Var n, m, x, y, i, j: integer;
begin
  write(n=);readln(n);
  write(m=);readln(m);
  write(x=);readln(x);
  write(y=);readln(y);
  
  for i := -1 to 1 do
    for j := -1 to 1 do
      if (i j) and (i -j) and
         (x+i>0) and (x+i         (y+j>0) and (y+j          writeln((, x+i, ,, y+j, ));
end.