free pascal

program Arsak;

uses crt;

type
PEmployee=^TEmployee;

TEmployee=object
name:string[12];
procedure Init(newname:string[12]);
end;

procedure TEmployee.Init(NewName:string[12]); // выдает ошибку 
begin
   name:=NewName;
end;

var An:PEmployee;

begin
  clrscr;
   new(an,sizeof(PEmployee));
   an.init('Novoe ');

  readln;
end.

program Arsak;

uses crt;

type

TEmployee=object
name:string;
procedure Init(newname:string);
function getname:string;
end;

procedure TEmployee.Init(NewName:string);
begin
   name:=NewName;
end;

function Temployee.getname:string;
begin
   getname:=name;
end;

var An:TEmployee;

begin
  clrscr;
  an.init('Novoe ');
  writeln(an.getname);
  readln;
end.