Определить, является ли число перевертышем с учетом четырех цифр

program prim3;
  uses crt;
  var n, m, a, i: integer;
begin
  clrscr;
{Введем четырехзначное целое число.}
  writeln('N<=9999'); readln(n)
{Запоминаем введенное целое число и задаем начальное значение перевертыша.}
  m:=n;а:=0;
{Организуем цикл с параметром от 1 до 4.}
  for i:=l to 4 do
{Находим перевертыш числа N}
    begin
      а:=а*10+ m mod 10; m:= m div 10;
    end;
{Если A=N, то данное число является перевертышем.}
  if a=n then writeln('DA!')
  else writeln('NO');
  readln;
end.