sele ved
  go top
  for i=1 to 100           
      mar[i]=nazv
     skip -  В этом месте появляется ошибка end of file encountered 
          do while mar[i]=nazv
         skip -  И здесь так же 
              enddo
      if eof()
         k=i               
         exit
         endif
  endfor
  store 0 to mzak
  index on str(zakaz,6) to zz
go top
*set step on
i=1