Шахматная доска

const
  hcell_count = 8; //Количество ячеек по горизонтали
  vcell_count = 8; //По вертикали
  hor : array[1..hcell_count] of String[1] = ('a','b','c','d','e','f','g','h');
  ver : array[1..vcell_count] of Char = ('1','2','3','4','5','6','7','8');
var
  user_cell : String[2];
  hcur_cell, vcur_cell : byte;
begin
      hcur_cell := 0; vcur_cell := 0;
  write('Введите точку отсчета (a1..h8): ');
  read(user_cell);
  for var i:=1 to hcell_count + 1 do begin
    if i=9 then writeln('НЕВЕРНАЯ ЗАПИСЬ ЯЧЕЙКИ')
    else if hor[i] = user_cell[1] then begin
      hcur_cell := i;
      break;
    end;
  end;
  for var i:=1 to vcell_count + 1 do begin
    if i=9 then writeln('НЕВЕРНАЯ ЗАПИСЬ ЯЧЕЙКИ')
    else if ver[i] = user_cell[2] then begin
      vcur_cell := i;
      break;
    end;
  end;
  if (hcur_cell + 2 <= vcell_count) then begin
    if (vcur_cell + 1 <= hcell_count) then writeln(hor[hcur_cell+2], ver[vcur_cell+1]);
    if (vcur_cell -1 > 0) then writeln(hor[hcur_cell+2], ver[vcur_cell-1]);
  end;
  if (hcur_cell - 2 > 0) then begin
    if (vcur_cell + 1 <= hcell_count) then  writeln(hor[hcur_cell-2], ver[vcur_cell+1]);
    if (vcur_cell -1 > 0) then  writeln(hor[hcur_cell-2], ver[vcur_cell-1]);
  end;
    if (vcur_cell + 2 <= vcell_count) then begin
    if (hcur_cell + 1 <= hcell_count) then  writeln(hor[hcur_cell+1], ver[vcur_cell+2]);
    if (hcur_cell -1 > 0)  then writeln(hor[hcur_cell-1], ver[vcur_cell+2]);
  end;
  if (vcur_cell - 2 > 0) then begin
    if (hcur_cell + 1 <= hcell_count)  then writeln(hor[hcur_cell+1], ver[vcur_cell-2]);
    if (hcur_cell -1 > 0)  then writeln(hor[hcur_cell-1], ver[vcur_cell-2]);
  end;

end.