Определить, является ли шестнадцатеричное представление данного натурального числа палиндромом

uses crt;
 
var
  n: word;
  mask, mask2: word;
  i,j, start: byte;
  f: boolean;
 
begin
  mask:=61440;
  mask2:=15;
  start:=4;
  f:=true;
  read(n);
 
  while i<4 do
    if n and mask = 0 then
      begin
        mask:= mask shr 4;
        mask:= mask and 4095;
        start:=start-1;
        i:=i+1;
      end
    else
      break;
 
  i:=0;
  j:=start;
  while (i<j) and (f) do
    begin
      if ((n and mask) shr ((j-1)*4)) <> ((n and mask2) shr (i*4))
      then f:=false;
        i:=i+1;
        j:=j-1;
        mask:=mask shr 4;
        mask2:=mask2 shl 4;
    end;
  writeln(f);
  readkey;
end.

uses crt;
 
 
function start(n: word; var mask: word): byte;
 
var
  i: byte;
  t: byte;
begin
  t:=5;
  i:=0;
  while i<5 do
    if n and mask = 0 then
      begin
        mask:= mask shr 3;
        mask:= mask and 4095;
        t:=t-1;
        i:=i+1;
      end
    else
      break;
  start:=t;
end;
 
function palindrome(n: word): boolean;
 
var
  i,j: byte;
  mask, mask2: word;
  f: boolean;
 
begin
  mask:=28672;
  mask2:=7;
  f:=true;
  i:=0;
  j:=start(n, mask);
  while (i<j) and (f) do
    begin
      if ((n and mask) shr ((j-1)*3)) <> ((n and mask2) shr (i*3))
      then f:=false;
        i:=i+1;
        j:=j-1;
        mask:=mask shr 3;
        mask2:=mask2 shl 3;
    end;
  palindrome:=f;
end;
 
var
  n: word;
 
begin;
  clrscr;
 
  write('Введите число от 0 до 28672: ');
  readln(n);
  writeln('Палиндром ',  palindrome(n));
  readkey;
end.

function ToOct(n: Longint): String;
var
  r: String;
begin
  r:=0;
  repeat
    r:=Chr(Ord(n and 7)+Ord('0'))+r;
    n:=n shr 3;
  until n=0;
  ToOct:=r;
end;
function IsPalindrome(const s: String): Boolean;
var i: Integer;
begin
  IsPalindrome:=False;
  for i:=1 to Length(s) div 2 do
    if s[i]<>s[Length(s)-i+1] then Exit;
  IsPalindrome:=True;
end;
var
  n: Longint;
begin
  ReadLn(n);
  WriteLn(IsPalindrome(ToOct(n)));
end.

function IsPalindrome(const s: String): Boolean;
var i, j: Integer;
begin
  i:=1; j:=Length(s);
  while (i<j) and (s[i]=s[j]) do begin
    Inc(i); Dec(j);
  end;
  IsPalindrome:=i>=j;
end;

program OctalPalindrome;
 
var
  n: word;
  S: word; {количество разрядов в octal представлении числа n данного целого типа}
  mask: word;
  Res: boolean;
  Left, Right: integer;
begin
  n := 4 + 8 * (5 + 8 * (6 + 8 * (5 + 8 * (4 + 8 * 0))));
  writeln(n);
  mask := 7;
  S := (SizeOf(n) * 8) div 3;
  if ((SizeOf(n) * 8) mod 3) <> 0 then
    Inc(S);
  {ищем крайний левый разряд}
  Left := S - 1;
  while ((n shr (Left * 3)) and mask) = 0 do
    Dec(Left);
  {теперь берём по одной 8-ричной цифре числа и сверяем}
  Res := True;
  Right := 0;
  while Right < Left do
  begin
    if ((n shr (Left * 3)) and mask) = ((n shr (Right * 3)) and mask) then
    begin
      Inc(Right);
      Dec(Left);
    end
    else
    begin
      Res := False;
      break;
    end;
  end;
  if Res then
    writeln('Palindrome')
  else
    writeln('No');
end.

var
  n, T, rev : word;
 
begin
//  n := 1098;  // Octal 2112
//  n := 2412;  // Octal 4554
//  n := 17620; // Octal 42324
  n := 65529;   // Octal 177771
  rev := 0; T := n;
  while T > 0 do
  begin
    rev := rev shl 3;
    rev := rev or (T and $7);
    T := T shr 3;
  end;
 
  writeln(n = rev);
end.