Определить на какие поля шахматной доски может пойти конь с заданными координатами

var y,x,i:integer;
    j,x1:char;
    a:array[1..8,'a'..'h'] of char;
begin
writeln('Введите координаты по горизонтали');
readln(x1);
writeln( 'Введите координаты по вертикали');
readln(y);
case x1 of
'a': x:=1;
'b': x:=2;
'c': x:=3;
'd': x:=4;
'e': x:=5;
'f': x:=6;
'g': x:=7;
'h': x:=8;
end;
writeln(' A B C D E F G H');
for i:=8 downto 1 do writeln(i);
for i:=1 to 8 do
for j:='a' to 'h' do
if abs(i-y)*abs(ord(j)-ord(x1))=2 then a[i,j]:='X'
else a[i,j]:='0';
a[y,x1]:='K';
for i:=8 downto 1 do
 begin
  for j:='a' to 'h' do
  write('', a[i,j]:2);
  writeln;
 end;
end.

var y,x,i:integer;
    j,x1:char;
    a:array[1..8,'a'..'h'] of char;
begin
repeat
write('Введите координату по горизонтали символ от a до h x1=');
readln(x1);
until x1 in ['a'..'h'];
repeat
write( 'Введите координату по вертикали от 1 до 8 y=');
readln(y);
until y in [1..8];
for i:=1 to 8 do
 begin
  write(9-i,' ');
  for j:='a' to 'h' do
  if (9-i=y)and(ord(j)=ord(x1)) then write('K':2)
  else if abs(9-i-y)*abs(ord(x1)-ord(j))=2 then write('X':2)
  else write(0:2);
  writeln;
 end;
writeln;
writeln('   A B C D E F G H');
end.

var y, i: Integer;
    j, x: char;
    a: array[1..8, 'a'..'h'] of Char;
begin
  Writeln('Введите координаты по горизонтали');
  Readln(x);
  Writeln('Введите координаты по вертикали');
  Readln(y);
  Write('   ');
  for j := 'A' to 'H' do Write(j, ' ');
  Writeln;
  for i := 1 to 8 do
   for j := 'a' to 'h' do
    if abs(i-y) * abs(ord(j)-ord(x)) = 2 then a[i, j] := 'X'
    else a[i, j] := '0';
  a[y, x] := 'K';
  for i := 8 downto 1 do
  begin
    Write(i, ' ');
    for j := 'a' to 'h' do Write(a[i, j]:2);
    Writeln;
  end;
end.