编译程序 问题!!

本人想用delphi2005来编写一个用来开发basic程序的编译器.最近遇到了一些问题,如何解析多重嵌套语句,
如:
for i=1 to 10
  for j=1 to 100
    for k=2 to 200
    z=z+i+j+z
    next
   next
next
如何把每层for循环提取.
既如何寻找匹配的next的行位置.