removed error 17, didn't adapt to Pascal syntax.