Помогите пожалуйста)Желательно подробно.
Ниже записан алгоритм. Получив на ход число x этот алгоритм , запишет две буквы M,L. Напишите число “x” при котором алгоритм с начало напишет число 2, а потом 8 .
DIM X, L, M AS INTEGER
INPUT X L=0: M=0
WHILE X>0
L=L+1
IF M<(X MOD 10) THEN M=X MOD 10
END IF
X=X\10
WEND
PRINT L, M

в паскале: 
var x, L, M: integer; 
begin
 readln(x);  
L:=0; M:=0;  
while x > 0 do
begin  
L:=L+1; 
 if M < (x mod 10) then begin  
M:=x mod 10;  
end;  
x:= x div 10;  
end;  
writeln(L);
write(M); 
end.