Закройте объявление класса.
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;
End;