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

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016 function IsAutomorph(s:string):boolean; // Возвращает true, если строка s изображает // автоморфное число, иначе возвращает false begin   var b:BigInteger;   if BigInteger.TryParse(s,b) then     Result:=sqr(b).ToString.Right(s.Length)=s   else Result:=false end; begin   var s:=ReadlnString('Введите натуральное число:');   if IsAutomorph(s) then Println('Автоморфное')   else Println('Не автоморфное') end. Тестовые решения: Введите натуральное число: 12890625 Автоморфное Введите натуральное число: 3245 Не автоморфное