Hi,
The code given by you doesn't have any fields declaration inside 'types begin of... and end of...' (this even doesn't allow to activate)
hope you are just giving us idea how your declaration part is.
If that is the case... then you have to close the types statement with a period(.) i.e, after line
end of tyva0303, (instead of having comma)
Then the code will work.
Ume$h.