[Asira]

Помогите разобраться в такой задачке
Описать указанный класс. Государство (вычислить плотность населения, отношение числа жителей столицы к общей численности населения);Создать и инициализировать экземпляр этого класса. Вызвать каждый метод. Мне кажется за поля можно взять -численность населения, площадь,численность столицы. а методы - вычисление плотности и отношения.
Не судите строго эт моя первая задачка по этой теме.

Код:

1 2 3 4 5 6 7 8 9 10 11 12

Type TGosudarstvo=class; x,y,z:real; procedure Init; end;   function Pl(a:Tgosudarstvo):real; begin Pl:=a.x/y; end; function Otn(b:TGosudarstvo):real; begin Otn:=b.z/x; end;   var c,d,e:TGosudarstvo; begin c:=TGosudarstvo.Greate; d:=TGosudarstvo.Greate;e:=TGosudarstvo.Greate; c.Init; d.Init; writeln('plotn=',c.Pl(d)); writeln('Otn=",c.Otn(d)); readln; c.Free; d.Free; end;