Где ошибка? Является ли заданное натуральное четырехзначное число палиндромом?…

Где ошибка? Является ли заданное натуральное четырехзначное число палиндромом? Палиндромами называются числа, которые читаются одинаково слева-направои справа-налево. Напрмер, 8998, 3333. Вводится целое число N (999 < N <10 000). Вывести слово YES, если N является палиндромом и NO, если нет.Var N, a, b, c, d: Integer; begin Writeln ('Vvedite chislo'); ReadLn (N); a: =N mod 10; b: =N mod 100 div 10; c: =N mod 1000 div 100; d: =N div 1000; if (a=d) and (b=c) then write ('YES') else ('NO'); end.