Проблема с задачей "Шахматы" (Pascal)

[Ghost3]

Данная задача есть на сайте школа программистов

Написал программу, на сайте робот не пропускает по 2-му тесту: Wrong answer. Все ломаю голову, не пойму что не так.

Вот код программы с пояснениями для вас:

const mas='ABCDEFGH'; nas='12345678';
var x1,y1,x2,y2,t:char; a,b,c,d,i:integer;
Label l;
begin

{ну эти 2 строчки должны быть в каждой отсылаемой программе}
assign (input, 'input.txt'); reset(input);
assign (output, 'output.txt'); rewrite(output);

a:=0; b:=0;
read(x1,y1,t,x2,y2);

{здесь проверяем корректность записи координат коня}
{t - это "черточка" между 2-мя координатами. Переменная t всегда должна быть равна символу "-"}
if (t<>'-') then goto l else
begin

{здесь идет счетчик, если a или b будет не равен 2, то координаты некорректны}
for i:=1 to 8 do
 begin
 if x1=mas[i] then a:=a+1; 
end;
for i:=1 to 8 do
 begin
 if x2=mas[i] then a:=a+1;
end;
for i:=1 to 8 do
 begin
 if y1=nas[i] then b:=b+1;
end;
for i:=1 to 8 do
 begin
 if y2=nas[i] then b:=b+1;  
end;
if (a<>2)or(b<>2) then write('ERROR');

{если координаты положения коня верны, проверяет правильность и корректность хода}
if (a=2)and(b=2) then 
 begin
 c:=0; d:=0;
 if (x2=succ(x1))or(x2=pred(x1))then c:=c+1 else
 begin
  if (succ(x2)=pred(x1))or(succ(x1)=pred(x2)) then c:=c+1;
 end;
 if (succ(y1)=pred(y2))or(succ(y2)=pred(y1)) then d:=d+1 else
 begin
   if (y2=succ(y1))or(y2=pred(y1)) then d:=d+1;
 end;
 end;
end;
if (c=1)and(d=1) then write('YES') else write('NO'); exit;
l:  write('ERROR');
end.

Upd:
Пока писал тему, пришло в голову, что надо было в строчке

if (a<>2)or(b<>2) then write('ERROR');

либо дописать exit; либо goto l;
Нет, все-равно не прошел 2й тест.

[BDA]

var
  s: string;

function check(s: string): boolean;
begin
  check := (length(s) = 5) and
  (s[1] in ['A'..'H']) and
  (s[2] in ['1'..'8']) and
  (s[3] = '-') and
  (s[4] in ['A'..'H']) and
  (s[5] in ['1'..'8']);
end;

begin
  assign(input, 'input.txt'); reset(input);
  assign(output, 'output.txt'); rewrite(output);
  readln(s);
  if check(s) then
  begin
    if sqr(ord(s[1]) - ord(s[4])) + sqr(ord(s[2]) - ord(s[5])) = 5 then
      writeln('YES')
    else
      writeln('NO');  
  end
  else
    writeln('ERROR');
end.

[Ghost3]

Спасибо конечно, за готовое решение (не проверял конечно на правильность), но мне важно понимать в чем моя ошибка.

[BDA]

Пожалуйста. Я подумал, что решение, проходящее тесты, даст Вам пищу для размышлений.
Во-первых, не знаю, как поведет себя рид при отсутствии 5 символов.
Во-вторых, у Вас сложная логика решения, имхо.

Не могу дать конструктивных советов по поводу ошибок

[Ghost3]

function check(s: string): boolean;
begin
  check := (length(s) = 5) and
  (s[1] in ['A'..'H']) and
  (s[2] in ['1'..'8']) and
  (s[3] = '-') and
  (s[4] in ['A'..'H']) and
  (s[5] in ['1'..'8']);
end;

Просто я еще не изучал подобные функции, возможно потому написал столь громоздкую программу.

Если не затруднит, можете написать комментарии к вашему коду?

Upd:
Все, понял.
Когда программа доходит до

if check(s) then

Она выполняет проверку, обращаясь к функции:

function check(s: string): boolean;
begin
  check := (length(s) = 5) and
  (s[1] in ['A'..'H']) and
  (s[2] in ['1'..'8']) and
  (s[3] = '-') and
  (s[4] in ['A'..'H']) and
  (s[5] in ['1'..'8']);
end;

И если все это проходит проверку, программа проверяет возможность хода:

if sqr(ord(s[1]) - ord(s[4])) + sqr(ord(s[2]) - ord(s[5])) = 5 then
...

Вот эта строчка мне непонятна.

Ps: голова кипит уже =D

[BDA]

if sqr(ord(s[1]) - ord(s[4])) + sqr(ord(s[2]) - ord(s[5])) = 5 then

Пусть, входные данные: C7-D5
Тогда s[1] = 'C', а ord(s[1]) - код символа
ord(s[1]) - ord(s[4]) - разница по одной координате
другая разность - разница по другой координате
Чтобы ход был правильным, расстояние до клетки должно быть корень из 5. (опускаю извлечение корня с обеих сторон равенства)
Ну вот и вся проверка.

function check(s: string): boolean;
begin
  check := (length(s) = 5) and
  (s[1] in ['A'..'H'])...

Длина строки равна 5 и 1 буква принадлежит множеству {A, B, C, D, E, F, G, H} и т.д.

[Ghost3]

Сообщение от BDA

Чтобы ход был правильным, расстояние до клетки должно быть корень из 5.

А почему? Можете объяснить?

Upd:
Проверяю программу свою - вроде бы все верно, на "C7-D5" отвечает "YES", на "E2-E4" - "NO", на любое некорректную запись - "ERROR".

Хм, но вот на "C7-D5aasaa" отвечает "YES"... надо исправить. А нет, там написано "пользователь не может вести строку длиннее 5 символов"

[BDA]

Зеленая клетка - исходная
Желтая - куда делаем ход
Коричневые - правильные

[Ghost3]

Ага! Ясно! Спасибо вам большое!