Дано шестизначное целое число n, в десятичной записи которого нет нулей. необходимо определить минимальное трехзначное число, которое можно увидеть в десятичной записи числа n. например, для n=915391 - результат 153

Var i,n,m,j,t:integer;d:array[1..6] of integer;beginn:= 951259;repeat m:= m + 1;d[m]:= n mod 10;n:= n div 10;until n = 0;writeln(d);for i:=1 to m do for j:=2 to m do beginif d[j-1]> d[j] then begint:= d[j-1]; d[j-1]:= d[j]; d[j]:= t;end;end;for i:=1 to 3 do write(d[i]);end.