переписать программу с VB на delphi

[qpush]

Здравствуйте форумчане, есть прога написанная на VB, нужно написать эту же прогу только на delphi, помогите пожалуйста с delphi никогда не работал, ни же код программы :

Private Sub Command1_Click()
zf = Val(Text1)
z = Val(Text2)
a = Array(25, 30, 40, 50, 55, 60, 70, 80, 90, 100)
For i1 = 0 To UBound(a)
 For i2 = 0 To UBound(a)
 If i2 = i1 Then GoTo 1
  For i3 = 0 To UBound(a)
   If i3 = i2 Then GoTo 2
   For i4 = 0 To UBound(a)
   If i4 = i3 Then GoTo 3
If (a(i1) / a(i2)) * (a(i3) / a(i4)) = (zf - z) * 40 / zf Then
Print "a = "; a(i1)
Print "b = "; a(i2)
Print "c = "; a(i3)
Print "d = "; a(i4)
Exit Sub
End If
 
   Next i4
3 Next i3
2 Next i2
1 Next i1
 
Print "не найдено"
End Sub

[RUSt88]

за небольшое вознаграждение, обращайтесь