я чувствую что пытаюсь сделать через одно место своё задание).со временем разберусь.наверное.
а методы procedure SetSurName и procedure SetName были описаны в private, так и нужно?мне ведь нужно использовать их в программе для ввода значений,а так получается я могу их использовать только в классе.
