Определить, может ли белая фигура пойти на поле (e,f), не попав при этом под удар черной фигуры

Program chess;
uses crt;
type pole=1..8;
var a,b,c,d,e,f:pole;
begin
clrscr;
randomize;
a:=random(8)+1;
b:=random(8)+1;
c:=random(8)+1;
d:=random(8)+1;
e:=random(8)+1;
f:=random(8)+1;
writeln('Kon:  ',a,' ',b);
writeln('Ferz: ',c,' ',d);
writeln('Pole: ',e,' ',f);
if (e=c)or(f=d)or(abs(e-c)=abs(f-d))or(c+d=e+f)
then write('No!') else write('Yes!');
readln
end.

Program String;
var
a:string;
b:array[1..100]of string;
i,k,f,j:integer;
begin
readln(a);
a:=' '+a;
for i:=1 to length(a) do
if a[i]=' 'then inc(k) else b[k]:=b[k]+a[i];
for i:=1 to k do
begin
f:=0;
for j:=1 to k do
if (i<>j)and(b[i]=b[j])then f:=1;
if f=0 then write(b[i],' ');
end;
end.

Program Function;
uses crt;
type mas=array[1..50]of integer;
var a:mas;
n,i:integer;
function Max(n:integer):integer;
var w:integer;
begin
if n>1 then
begin
w:=Max(n-1);
if a[n]<w then Max:=w
else Max:=a[n]
end
else Max:=a[1]
end;
begin
clrscr;
randomize;
write('Razmer massiva A n=');
readln(n);
writeln('Massiv A:');
for i:=1 to n do
begin
a[i]:=random(20);
write(a[i],' ');
end;
writeln;
write('max=',Max(n));
readln
end.

Program matrica;
var
a:array[1..100,1..100]of integer;
p:longint;
n,m,j,i:integer;
begin
write('strok=');
readln(n);
write('stolbcov=');
readln(m);
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(10);
writeln('matrica');
p:=1;
for i:=1 to n do
begin
for j:=1 to m do
begin
p:=p*a[i,j];
write(a[i,j]:4);
end;
writeln(‘p=',p);
p:=1;
end;
readln;
end.

Program Functio;