Составить программу для нисхождения всех автомоторных чисел в отрезке m, n — Pascal(Паскаль)

uses crt;
var
m,n,i,t,k:integer;
begin
writeln('vvedite m i n');
readln(m,n);
if m>n then begin
t:=m;
m:=n;
n:=t;
end;
for i:=m to n do begin
k:=1;
t:=i;
while t>0 do begin
k:=k*10;
t:=t div 10;
end;
if ((i*i)-i) mod k = 0 then
writeln(i,' avtomorfnoe');
end;
end.