Помогите решить задачу в паскале. Определить есть ли в записи квадрата данного числа 1 если есть то вывести ДА или же НЕ

Вам нужно ввести число и ответить ДА, если в квадрате введенного числа цифра 1?

var i,k:longint; b:string[3];
begin
readln(k); k:=k*k; b:='НЕТ';
repeat if k mod 10=1 then b:="ДА'; k:=k div 10 until k=0;
writeln(b); readln
end.