По заданному номеру клетки выдать номера всех клеток имеющих с ней общую сторону - Turbo Pascal - Ответ 4548783

const
  n = 8;
 
type
  mas = array[1..n, 1..n] of byte;
 
var
  a: mas;
  i, j, x, s: integer;
  indi, indj: byte;
 
procedure print_mas(a: mas);
var
  i, j: byte;
begin
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(a[i, j]:3, ' ');
    writeln;
  end;
end;
 
procedure init_mas(var a: mas);
var
  i, j: byte;
begin
  s := 64;
  for i := 1 to n do
    for j := n downto 1 do
    begin
      a[i, j] := s;
      s := s - 1;
    end;
end;
 
begin
  init_mas(a);
  print_mas(a);
  readln(s);
  for i := 1 to n do
  begin
    for j := 1 to n do
      if a[i, j] = s then 
      begin
        indi := i;
        indj := j;
      end;
  end;
  if (indi - 1 > 0) and (indi - 1 <= n) then writeln('сверху ', a[indi - 1, indj], ' координаты: (', indi - 1, ',', indj, ')');
  if (indj - 1 > 0) and (indj - 1 <= n) then writeln('слева ', a[indi, indj - 1], ' координаты: (', indi, ',', indj - 1, ')');
  if (indi + 1 > 0) and (indi + 1 <= n) then writeln('снизу ', a[indi + 1, indj], ' координаты: (', indi + 1, ',', indj, ')');
  if (indj + 1 > 0) and (indj + 1 <= n) then writeln('справа ', a[indi, indj + 1], ' координаты: (', indi, ',', indj + 1, ')');
end.