Составить программку, выводящую значение TRUE или FALSE. Шахматный повелитель за один

Program KING;

Var x,y,x1,y1: integer;

Begin

writeln('Введите координаты расположения Короля:');

write('Коор. x - '); readln(x);

write('Коор. y - '); readln(y);

writeln('Введите координаты клеточки хода:');

write('Коор. x - '); readln(x1);

write('Коор. y - '); readln(y1);

if ((x = x1) and (y = y1))

then writeln('FALSE')

else if (абс(x1 - x) lt; 2)

then if (абс(y1 - y) lt; 2)

then writeln('TRUE')

else writeln('FALSE')

else writeln('FALSE');

End.