помогите доделать алгоритмм!!

[alatir]

Уважаемые программисты помогите пожалуста в создании алгоритма к задаче:
составить алгоритм и программу,которые по известным координатам(номер строки и номер столбца) двух стоящих на шахматной доске фигур, определяют, стоят ли эти фигуры на клетках одного цвета или нет.На шахматной доске 8*8 клеток,а левая верхняя клетка доски белая.Предусмотреть проверку правильности ввода исходных данных

у меня получилось только выводить шахматную доску и выводить на ней фигуры а сам алгоритм оределения цвета клетки на которой стоит фигура у меня не получается помогите пожалуста с алгоритмом!!!
вот что я написал:
uses
crt;

var
x:array [1..8,1..8] of integer;
i,j:integer;
pi,pj,fi,fj : integer;
ok,pok:boolean;

begin
clrscr;
randomize;

pok:=false;
ok:=false;
for i:=1 to 8 do
for j:=1 to 8 do
x[i,j]:=0;

write('Vvedite koordinati 1 figyri cherez probel : ');
readln(pi,pj);
write('Vvedite koordinati 2 figyri cherez probel : ');
readln(fi,fj);
pi:=9-pi;
fi:=9-fi;

x[pi,pj]:=1;
x[fi,fj]:=2;

for i:=1 to 8 do
begin
textcolor(15);
write(9-i:3,'|');
for j:=1 to 8 do
if x[i,j]=1 then write('P':3)
else if x[i,j]=2 then write('F':3)
else write('*':3);
writeln;
end;
writeln(' +------------------------');
writeln(' A B C D E F G H');




if (ok) then writeln('1 figyra belaa');
else writeln('1 figura chernaa');
if(pok) then writeln('2 figyra belaa');
else writeln('2 figura chernaa');
repeat until keypressed;
end.

[puporev]

Мне кажется Вы написали много лишнего. Ведь задание

стоят ли эти фигуры на клетках одного цвета или нет.

И все.

uses crt;
var x1,y1,x2,y2,k:byte;
begin
clrscr;
repeat
writeln('Введите координаты первого поля:');
readln(x1,y1);
until(x1 in [1..8])and(y1 in [1..8]);
repeat
k:=0;
writeln('Введите координаты второго поля:');
readln(x2,y2);
if((x1=x2)and(y1=y2))or not(x2 in [1..8])or not(y2 in [1..8]) then k:=1;
until k=0;
if (abs(x1-x2)+abs(y1-y2))mod 2=0 then
write('Фигуры стоят на полях одного цвета!')
else write('Фигуры стоят на полях разного цвета!');
readln
end.

[alatir]

спасибо большое за алгоритм!!!!
а то я уже неделю ломаю над этой задачей