Помогите с задачей (Паскаль abc).

Question

В четырёхзначном числе определить наименьшую цифру и заменить все цифры числа данной цифрой.

Светлана Ерофеевская · Accepted Answer

примени эту программу к себе 
uses crt; 
var x,sum: integer; 
begin 
 clrscr; 
 readln(n); 
 sum := 0; 
 while n<>0 do 
 begin 
 sum:=sum + x mod 10; 
 n := n div 10; 
 end; 
 write('Сумма цифр = ',sum); 
 readln; 
end.}