Почему не работает программа?

var xk,yk,x1,x2,x3,y1,y2,y3:integer;
begin
 writeln('Введите координаты короля');
 readln(xk,yk);
 writeln('Введите координаты 1 ладьи');
 readln(x1,x1);
 writeln('Введите координаты 2 ладьи');
 readln(x2,x2);
 writeln('Введите координаты 3 ладьи');
 readln(x3,x3);
  if (xk=x1) or (yk=y1) then
  begin
  writeln('угроза от 1 ладьи')
  end;
  if (xk=x2) or (yk=y2) then
  begin
  writeln('угроза от 2 ладьи')
  end;
  if (xk=x3) or (yk=y3) then
  begin
  writeln('угроза от 3 ладьи')
  end;
end.

var xk,yk,x1,x2,x3,y1,y2,y3:integer;
begin
 writeln('Введите координаты короля');  readln(xk,yk);
 writeln('Введите координаты 1 ладьи'); readln(x1,x1);
 writeln('Введите координаты 2 ладьи'); readln(x2,x2);
 writeln('Введите координаты 3 ладьи'); readln(x3,x3);
  if (xk=x1) or (yk=y1) then writeln('угроза от 1 ладьи');
  if (xk=x2) or (yk=y2) then writeln('угроза от 2 ладьи');
  if (xk=x3) or (yk=y3) then writeln('угроза от 3 ладьи');
end.

readln(x1,y1);

var xk,yk,x1,x2,x3,y1,y2,y3:integer;
begin
repeat
 writeln('Введите координаты короля от 1 до 8');
 readln(xk,yk);
 until(xk in [1..8])and(yk in [1..8]);
 repeat
 writeln('Введите координаты 1 ладьи от 1 до 8 x1<>',xk,' или y1<>',yk);
 readln(x1,y1);
 until(x1 in [1..8])and(y1 in [1..8])and((x1<>xk)or(y1<>yk));
 repeat
 writeln('Введите координаты 2 ладьи от 1 до 8 x2<>',xk,' или y2<>',yk,
 ' и x2<>',x1,' или y2<>',y1);
 readln(x2,y2);
 until(x2 in [1..8])and(y2 in [1..8])and((x2<>xk)or(y2<>yk))and((x2<>x1)or(y2<>y1));
 repeat
 writeln('Введите координаты 3 ладьи от 1 до 8 x3<>',xk,' или y3<>',yk,
 ' и x3<>',x1,' или y3<>',y1,' и x3<>',x2,' или y3<>',y2);
 readln(x3,y3);
 until(x3 in [1..8])and(y3 in [1..8])and((x3<>xk)or(y3<>yk))and((x3<>x1)or(y3<>y1))
 and((x3<>x2)or(y3<>y2));
if (xk=x1) or (yk=y1) then  writeln('угроза от 1 ладьи');
if (xk=x2) or (yk=y2) then writeln('угроза от 2 ладьи');
if (xk=x3) or (yk=y3) then writeln('угроза от 3 ладьи');
if not(xk in [x1,x2,x3])and not(yk in [y1,y2,y3]) then writeln('угрзы королю нет')
end.