Ошибка Presentation Error в проверяющей системе - Pascal - Ответ 9863361

{$mode fpc}
{$B-}
program acmp_1088;
 
  function TestStepRook(x1, y1, x2, y2: integer): boolean;
  begin
    TestStepRook := (x1 = x2) or (y1 = y2);
    if TestStepRook then
      writeln('Rook');
  end;
 
  function TestStepBishop(x1, y1, x2, y2: integer): boolean;
  begin
    TestStepBishop := abs(x1 - x2) = abs(y1 - y2);
    if TestStepBishop then
      writeln('Bishop');
  end;
 
  function TestStepKnight(x1, y1, x2, y2: integer): boolean;
  begin
    TestStepKnight := abs(x1 - x2) * abs(y1 - y2) = 2;
    if TestStepKnight then
      writeln('Knight');
  end;
 
  function TestStepQueen(x1, y1, x2, y2: integer): boolean;
  begin
    TestStepQueen := (x1 = x2) or (y1 = y2) or (abs(x1 - x2) = abs(y1 - y2));
    if TestStepQueen then
      writeln('Queen');
  end;
 
  function TestStepKing(x1, y1, x2, y2: integer): boolean;
  begin
    TestStepKing := (abs(x1 - x2) <= 1) and (abs(y1 - y2) <= 1);
    if TestStepKing then
      writeln('King');
  end;
 
  function TestStepPawn(x1, y1, x2, y2: integer): boolean;
  begin
    TestStepPawn := (x1 = x2) and ((y2 - y1 = 1) or ((y1 = 2) and (y2 - y1 = 2))) and
      (y1 > 1);
    if TestStepPawn then
      writeln('Pawn');
  end;
 
var
  s: string;
  x1, y1, x2, y2: integer;
  Result: boolean;
begin
  readln(s);
  x1 := Ord(s[1]) - Ord('A') + 1;
  y1 := Ord(s[2]) - Ord('1') + 1;
  x2 := Ord(s[4]) - Ord('A') + 1;
  y2 := Ord(s[5]) - Ord('1') + 1;
  Result := TestStepRook(x1, y1, x2, y2);
  Result := TestStepBishop(x1, y1, x2, y2) or Result;
  Result := TestStepKnight(x1, y1, x2, y2) or Result;
  Result := TestStepQueen(x1, y1, x2, y2) or Result;
  Result := TestStepKing(x1, y1, x2, y2) or Result;
  Result := TestStepPawn(x1, y1, x2, y2) or Result;
  if not Result then
    writeln('Nobody');
end.