Еще вопрос.
Как сделать эту функцию универсальной, чтобы можно было в ней передать любой тип.
Например типы bot и bot1 имеют много не одноименных переменных
Но есть и одноимённые, с ними и надо произвести действия
Type bot
Field privet
Field poka
Field id
End Type
Type bot1
Field kino
Field doroga
Field id
End Type
For b.bot=Each bot
Move(b)
Next
For a.bot1=Each bot1
Move(a)
Next
Function Move(???)
??? нужно изменить id
End Function