Постусловие: вывести те числа в интервале 100 .. 500, которые содержат заданную цифру M - Turbo Pascal

program pr;
var
m,i,j:integer;
begin
j:=100;
i:=500;
writeln('Введите число m');
readln(m);
repeat
if ((i div 100)mod 10=m) or ((i div 10)mod 10=m) or (i mod 10=m)then
begin
j:=j+1;
write(i,' ');
   end;
i:=i+1;
until j=500;
end.