palindrome ama integer

// https://imgur.com/a/1jvRLYn
Program pralindrom_m7achech;
uses WinCrt;
var
    x: Word;
    Function mult(x : word): word;
        var
            d : Word;
        begin
            d:=1;
            repeat
                x:=x div 10;
                d:=d*10;
            until x = 0;
            mult:=d div 10;
        end;
    Function palin(x : Word):Boolean;
        begin
            while (x <> 0) and (x   div mult(x) = x mod 10)  do
                 x:=(x mod mult(x)) div 10;
            palin:= x = 0;
        end;
begin
    readln(x);
    write(palin(x));
End.