Задача

там где выделено жирным выбивает ошибку:
Fatal: Syntax error, ";" expected but "." found
но ведь там точно "." должна быть!
вот мое решение...


type TVirobnik=class(TObject)
  name:string;
  kraina:string;
  constructor Create(aname:string; akraina:string);
end;
  type TSklad=class(TObject)
   narkotik: String;
   vaga: integer;
   constructor Create(anarkotik: String; avaga: integer);
   function dodvart:integer;
  end;
  type TLiksas=class(TObject)
   Sklad: TSklad;
   Virobnik: TVirobnik;
   data:integer;
   vartist: integer;
  constructor Create(anarkotik,aname,akraina:string; adata,avartist,avaga:integer);
  destructor Destroy; override;
  procedure Getnewvaga (avaga:integer);
  function zagvartist:integer;
  constructor TLiksas.Create (anarkotik,aname,akraina:string; adata,avartist,avaga:integer);
   begin
    inherited Create;
    Sklad:=TSklad.Create(narkotik,vaga);
    Virobnik:=TVirobnik.Create(name,kraina);
    data:=adata;
    vartist:=avartist;
  end;
destructor TLiksas.Destroy; override;
  begin
   Sklad.Free;
   Virobnik.Free;
    inherited Destroy;
  end;
procedure TLiksas.Getnewvaga(avaga:integer);
begin
  vaga:=avaga;
  end;
function TLiksas.Zagvartist:integer
  begin
   Zagvartist:=dodvart+vartist;
  end;
constructor TSklad.Create(anarkotik: String; avaga: integer);
begin
  inherited Create;
  narkotik:= anarkotik;
   vaga:= avaga;
end;
function TSklad.Dodvart:integer;
begin
  dodvart:=FloatToStr(vaga)*10000;
end;
constructor TVirobnik.Create(aname:string; akraina:string);
begin
  inherited Create;
   name:=aname;
   kraina:akrain



a;
end;
var z:TLiksas;
    v:integer;
begin
z:=TLiksas.Create('tak',50,'koks','Ukraine',25.03,100);
writeln (z.info);
readln;
writeln('vvedit novu vaga');
readln(v);
z.getnewvaga(v);
writeln (z.info);
z.Free;
readln;
end.