Program2.pas(46) : Неизвестное имя 'healph'

uses graphabc;
type monster=class
 
 
  procedure init(x_,y_,healph_,ammo_:word);
  procedure attack;
  procedure draw;
  procedure erase;
  procedure hit;
  procedure move(x_,y_:word);
private
 x,y:word;
 healph,ammo:word;
 color1:color;
 
 end;
 procedure monster.init(x_,y_,healph_,ammo_:word);
 begin
 x:=x_;y:=y_;
 healph:=healph_;
 ammo:=ammo_;
 color1:=clyellow;
 end;
 
 procedure monster.attack;
 begin
 if ammo=0 then exit;
 dec(ammo);
 setfontcolor(color1);
 textout(x+15,y,'Ba-bah!');
 end;
 
  procedure monster.draw;
 begin
 setpencolor(color1);
 textout(x,y,'@');
 end;
 
 procedure monster.erase;
begin
setpencolor(clwhite);textout(x,y,'@');
end;
 
procedure hit;
begin
if healph=0 then exit;
dec(healph);
if h=0 then begin setfontcolor(clred);draw;sleep(1);window.close;end;
attack;
end;
procedure move(x_,y_:word);
begin
if healph=0 then exit;
erase;
x:=x_;
y:=y_;
draw;
end;
 
 
var vasia:monster;
x,y:word;
g,gd:integer;
begin
vasia.init(10,100,10,10);
vasia.draw;
vasia.attack;
readln;
x:=110;
while x<200 do begin
vasia.move(x,x);inc(x,7);
vasia.hit;
sleep(200);
end;
readln;
end.

procedure monster.init(x_,y_,healph_,ammo_:word);
procedure monster.attack;
.......................................
procedure hit;???