Поиск фигур, которые сможет срубить ферзь

[kristy08]

Здравствуйте,
Прошу помощи с решением задачи:

Есть шахматное поле, записанное в файле. На поле расставлены фигуры: сам ферзь (F); те, которые он может срубить (Е); и те, которые нет (R).
Нужно вывести координаты тех фигур, которые могут быть срублены.

Само поле:
* * R * E * * *
E * * * * * R *
* * * * R * * *
* * R * * * * *
R * * * * * E *
* * E * * * * *
* * * * * * R *
* E * * R E * *

Вот вариант моего кода:

const
      fi=5;
      fj=5;
 
type pole = array [1..8,1..8] of string; 
 
var f:text;
    i,j,x:integer;
    Board: pole;
    s:string;

begin
assign(f,'init.txt');


  reset(f);
  for i:=1 to 8 do
  begin
  while not eof(f) do begin
    while not eoln(f) do begin
      read(f,s);
      
      for x:=1 to length(s) do begin
      
      for j:=1 to 8 do
      Board[i,j]:=s[x];
      
      end;
      end;
    readln(f);
   end;
   end;



for i:=1 to 8 do
 for j:=1 to 8 do
  begin
  if Board[i,j]='E' then
   if (i=fi) or (j=fj) or ((i-j)=(fi-fj)) or ((i+j)=(fi+fj)) then
  writeln('Queen hits an enemy on ',i,':',j);
  end;

close(f);
end.

Попытаюсь объяснить, что я тут хотела сделать:

fi,fj - координаты ферзя.

1) Считывание "доски" из файла и перенос ее в двумерный массив

  reset(f);
  for i:=1 to 8 do
  begin
  while not eof(f) do begin
    while not eoln(f) do begin
      read(f,s);
      
      for x:=1 to length(s) do begin
      
      for j:=1 to 8 do
      Board[i,j]:=s[x];
      
      end;
      end;
    readln(f);
   end;
   end;

Массив

type pole = array [1..8,1..8] of string;

2) Проверка путей ферзя на наличие фигур, которые можно срубить.

for i:=1 to 8 do
 for j:=1 to 8 do
  begin
  if Board[i,j]='E' then
   if (i=fi) or (j=fj) or ((i-j)=(fi-fj)) or ((i+j)=(fi+fj)) then
  writeln('Queen hits an enemy on ',i,':',j);
  end;

Уже ничего придумать не могу, чтобы она работала... надеюсь поможете.

[Mad_Cat]

if abs(i-fi)=abs(j-fj) or (i=fi) or (j=fj)  then writeln('Queen hits an enemy on ',i,':',j);
(*
abs(i-fi)=abs(j-fj) проверка диагоналей
(i=fi)  горизонталей
(j=fj)  вертикалей 
*)