\START92\
\COMMENT=Single file dated Fri Dec  5 00:04:04 20
\NAME=maxj
\FILE=day3.maxj.92f
(arr,l)
Func
min(l,dim(arr))\->\l
Local maxd,maxv,i,e,c,m,n,result
0\->\result
1\->\maxd
For m,1,l
 l-m\->\n
 "0"\->\maxv
 dim(arr)-n\->\e
 For i,maxd,e
  mid(arr,i,1)\->\c
  If c>maxv Then
   c\->\maxv
   i+1\->\maxd
   If c="9" Then
    Goto break
   EndIf
  EndIf
 EndFor
 Lbl break
 result*10+expr(maxv)\->\result
EndFor

Return result
EndFunc

\STOP92\