вопрос по объектам на паскале

[demonara]

type
 TPerson=object

 age:integer;
 man:boolean;

 constructor init(aAge:integer;aman:boolean);
 function g:boolean;
 function InfoString:string;
 function IsWorkingString:string;
 function ManString:string;
 function AgeString:integer;
 end;
 constructor TPerson.init(aage:integer;aman:boolean);
 begin
 age:=aage;
man:=aman;

 end;
  function TPerson.g:boolean;
  begin
   g:=(age<60);
 end;
 function TPerson.infostring:string;
   begin
  case age of
  1..18:infostring:=('ребёнок');
  18..25:infostring:='студент ';
  25..60:infostring:='работающий';
  60..100:infostring:='пенсионер';
  else infostring:='столько не живут';
end;
end;
 function TPerson.IsWorkingString:string;
  begin
  if(age>18)and(age<60) then IsWorkingString:='трудоспособен'
  else IsWorkingString:='нетрудоспособен';
  end;
  function TPerson.manstring:string;
  begin
   if man then manstring:='мужской'
   else manstring:='женский';
  end;
  function tperson.agestring:integer;
  begin
  agestring:=age;

  end;
var
x,y,z,m:integer;
  s:char; n:boolean;
  begin

      writeln('введите сколько вам лет');
        readln(m);

        writeln('введите ваш пол М\Ж ');
         repeat
         readln(s);
         until(s='М')or(s='м')or(s='Ж')or(s='ж');
         if (s='М')or(s='м') then n:=true
         else n:=false;

        TPerson.init(m,n); {вот эта строчка не проходит ошибка 143
invalid procedure or function referens}

   writeln(manstring);
   writeln(agestring);
   writeln(isworkingstring);
   writeln(infostring);
   if isworking then writeln('по возросту годен')
   else writeln('по возросту не прошол');
 readln;
 end.

задание такое

Создайте следующий объект:
TPerson - объект людей.
Со следующим набором методов и полей: Age:integer; {возраст}
Man:boolean; {пол}
procedure Init(_Age:integer; _Man:boolean); {метод создания человека (заполнение полей)}
function IsWorking:boolean; {Метод-функция, определяющая, может ли человек работать (по возрасту) или нет}
function InfoString:string; {возвращает фразу о типе класса}
function IsWorkingString:string; {возвращает фразу о трудоспособности}
function ManString:string; {возвращает фразу о поле}
function AgeString:string; {возвращает фразу о возрасте}
И поражденный от него объект TPersonStudent.

[mMAg]

Может быть я и брешу, ибо object не использую. Но TPerson это не переменная, или чего там еще. Попробуйте вот что

var Person : TPerson

добавить вот что. и еще в тексте программы писать вот так :

Person := TPerson.Init(...)

[demonara]

нет ты не прав TPerson.init была ранее объявлена в методах объекта
по идее tperson.init(m,n) должна была сработать как процедура
и присвоить переменным age и man значение переменных m,n
, но по не понятным мне причинам этого не происходит
процедура не срабатывает а выдаёт ошибку

[mMAg]

А ты пробовал сделать так как я просил, мне как-то очень лениво?

по идее tperson.init(m,n) должна была сработать как процедура
и прискоить переменным age и man значение переменных m,n

Ну так она так и сработает, когда появится что-нибудь, с чем она это сможет сделать. Например экземпляр объекта вполне может стать ее целью.

[Daramant]

mMAg прав:
ты переменную забыл описать:

...
var
  Person: TPerson;
...
begin
...
  Person.init(m,n);
...
end.

Или так можно, если динамически:

...
type
  PPerson: ^TPerson;
var
  Person: PPerson;
...
begin
...
  New(Person, init(m, n));
...
  Dispose(Person);
...
end.

[demonara]

всё зделал как написано но ошибка не изчезает

[Daramant]

всё зделал как написано но ошибка не изчезает

Значит не все сделал.
Вот, я все поправил:

type
TPerson=object

age:integer;
man:boolean;

constructor init(aAge:integer;aman:boolean);
function g:boolean;
function InfoString:string;
function IsWorkingString:string;
function IsWorking:boolean;
function ManString:string;
function AgeString:integer;
end;
constructor TPerson.init(aage:integer;aman:boolean);
begin
age:=aage;
man:=aman;

end;
function TPerson.g:boolean;
begin
g:=(age<60);
end;
function TPerson.infostring:string;
begin
case age of
1..18:infostring:=('ребёнок');
18..25:infostring:='студент ';
25..60:infostring:='работающий';
60..100:infostring:='пенсионер';
else infostring:='столько не живут';
end;
end;
function TPerson.IsWorkingString:string;
begin
if(age>18)and(age<60) then IsWorkingString:='трудоспособен'
else IsWorkingString:='нетрудоспособен';
end;
function TPerson.IsWorking:boolean;
begin
IsWorking := (age>18)and(age<60);
end;
function TPerson.manstring:string;
begin
if man then manstring:='мужской'
else manstring:='женский';
end;
function tperson.agestring:integer;
begin
agestring:=age;

end;
var
x,y,z,m:integer;
s:char; n:boolean;
Person: TPerson;
begin

writeln('введите сколько вам лет');
readln(m);

writeln('введите ваш пол М\Ж ');
repeat
readln(s);
until(s='М')or(s='м')or(s='Ж')or(s= 'ж');
if (s='М')or(s='м') then n:=true
else n:=false;

Person.init(m,n); {вот эта строчка не проходит ошибка 143
invalid procedure or function referens}

writeln(Person.manstring);
writeln(Person.agestring);
writeln(Person.isworkingstring);
writeln(Person.infostring);
if Person.isworking then writeln('по возросту годен')
else writeln('по возросту не прошол');
readln;
end.

[demonara]

это похоже у меня косяки с паскалям free pascal по прежнему выдаёт ошибку а турбо паскаль откомпелировал всё беспродлем
ну вообщем спасибо!!