Пожалуйста,помогите решить задачу в Паскале! На шахматной доске стоят черный король и три белые ладьи (ладья бьет по горизонтали и вертикали) . Проверить, не находится ли король под боем.

 const              n = 3; //Кол-во фигур        var       i : integer;       xk,yk : integer;       xl,yl : array [1..n] of integer;       r : boolean;   begin     //Задание координат  //-----------------------    xk := 2; yk := 2; // Координаты короля         //Координаты ладьи     xl[1] := 1; yl[1] := 2;     xl[2] := 4; yl[2] := 6;    xl[3] := 5; yl[3] := 8;    //-------------------------    r := false;  i := 1;    While (i <= n) and (not r) do    begin    if (xk = xl[i]) or (yk = yl[i]) then //Лежат на одной  прямой     r := true;    i:= i +1;    end;    if r then    writeln ('Король под ударом')  else    writeln ('Король живет)');  end.