[Asira]

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

Код:

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;