Шахматы: определить поля боя фигуры

uses crt;
const n=8;
type mas=array[-1..n+2,-1..n+2] of char;
procedure Print(p:mas);
var i,j:integer;
begin
clrscr;
for i:=1 to n do
 begin
  for j:=1 to n do
  write(p[i,j]:2);
  writeln;
 end;
readln;
end;
var p:mas;
    i,j,x,y:integer;
    w:char;
begin
clrscr;
repeat
for i:=1 to n do
for j:=1 to n do
p[i,j]:='.';
clrscr;
writeln('Выберите фигуру или выход');
writeln('1-король');
writeln('2-ферзь');
writeln('3-ладья');
writeln('4-слон');
writeln('5-конь');
writeln('6-черная пешка');
writeln('7-белая пешка');
writeln('другое-выход');
readln(w);
case w of
'1'..'5':begin
         repeat
         write('Введите номер вертикали слева направо от 1 до 8 y=');
         readln(y);
         until y in [1..8];
         repeat
         write('Введите номер горизонталии снизу вверх от 1 до 8 x=');
         readln(x);
         until x in [1..8];
         end;
'6','7': begin
      repeat
      write('Введите номер вертикали слева направо от 1 до 8 y=');
      readln(y);
      until y in [1..8];
      repeat
      write('Введите номер горизонталии снизу вверх от 2 до 7 x=');
      readln(x);
      until x in [2..7];
      end;
end;
case w of
'1':begin
    for i:=x-1 to x+1 do
    for j:=y-1 to y+1 do
    if(i in [1..8])and(j in [1..8]) then p[n-i+1,j]:='*';
    p[n-x+1,y]:='O';
    Print(p);
    end;
'2':begin
    for i:=1 to n do
    for j:=1 to n do
    if (abs(x-i)=abs(y-j))or((i=x)or(j=y)) then p[n-i+1,j]:='*';
    p[n-x+1,y]:='O';
    Print(p);
    end;
'3':begin
    for i:=1 to n do
    for j:=1 to n do
    if (i=x)or(j=y) then p[n-i+1,j]:='*';
    p[n-x+1,y]:='O';
    Print(p);
    end;
'4':begin
    for i:=1 to n do
    for j:=1 to n do
    if abs(x-i)=abs(y-j) then p[n-i+1,j]:='*';
    p[n-x+1,y]:='O';
    Print(p);
    end;
'5':begin
    for i:=x-2 to x+2 do
    for j:=y-2 to y+2 do
    if ((i>0)and(i<9)and(j>0)and(j<9))
    and((abs(i-x)=1)and(abs(j-y)=2))or((abs(i-x)=2)and(abs(j-y)=1))
    then p[n-i+1,j]:='*';
    p[n-x+1,y]:='O';
    Print(p);
    end;
'6':begin
    if y in [2..7] then
     begin
      p[n-x+2,y-1]:='*';
      p[n-x+2,y+1]:='*';
     end
    else if y=1 then  p[n-x+2,y+1]:='*'
    else p[n-x+2,y-1]:='*';
    p[n-x+1,y]:='O';
    Print(p);
    end;
'7':begin
    if y in [2..7] then
     begin
      p[n-x,y-1]:='*';
      p[n-x,y+1]:='*';
     end
    else if y=1 then  p[n-x,y+1]:='*'
    else p[n-x,y-1]:='*';
    p[n-x+1,y]:='O';
    Print(p);
    end;
else exit;
end;
until not(w in ['1'..'7']);
end.