Дано n (n - натуральное число) целых чисел от 1 до 255. определить среди них числа, запись которых состоит только из одинаковых цифр. (с циклом нужно сделать)

Program odinakov;
var i, it, il:integer;t: boolean;
begin 
for i:=1 to 255 do 
begin
t:=true;
it:=i;   
il:=i mod 10;   
while it <> 0 do   
begin     
if it mod 10 <> il then      
begin        
t:=false;       
break;     
end;     
it:=it div 10;   
end;   
if t then writeln(i); 
end;
end.