Ожидался символ "точка с запятой"

Program prog1;
type CWindow=object
  x,y:       integer; {êîîðäèíàòû îêíà}
  lenx,leny: integer; {ðàçìåðû îêíà}
  visible:   boolean; {ôëàã âèäèìîñòè}
  procedure Init (x,y,lenx,leny: integer);
  procedure Show;
  function isVisible: boolean;
end;
procedure ÑWindow.Init (x,y,lenx,leny: integer);
{Çàäà¸ò íà÷àëüíûå ïàðàìåòðû îêíà}
begin
  Self.x:=x;
  Self.y:=y;
  Self.lenx:=lenx;
  Self.leny:=leny;
  visible:=true;
end;
 
procedure ÑWindow.show;
{Ðèñóåò îêíî}
  var i,j: integer;
begin
  textbackground (BLUE);
 
  gotoxy (x,y);
  write ('ã'); {ALT+201}
  for i:=1 to lenx-2 do write ('='); {ALT+205}
  write ('¬') {ALT+187}
 
  for j:=y+1 to y+leny-2 do
  begin
    gotoxy (x,j);
    write ('¦'); {ALT+186}
    for i:=1 to lenx-2 do write (' '); {ALT+205}
    write ('¦'); {ALT+186}
  end;
 
  gotoxy (x,y+leny-1);
  write ('L'); {ALT+200}
  for i:=1 to lenx-2 do write ('='); {ALT+205}
  write ('-') {ALT+188}
 
  visible:=true;
end;
 
function CWindow.isVisible: boolean;
begin
  isVisible:=visible;
end;

type CWindow=object

type CWindow=class

Program prog1;
Type
Location = object
   X,Y : Integer; {Äàííûå}
   Procedure Init(InitX, InitY : Integer);  {Çàãîëîâêè}
   Function GetX : Integer;  {ìåòîäîâ}
   Function GetY : Integer;
End;
 {Îïèñàíèå ìåòîäîâ}
Procedure Location.Init(InitX, InitY : Integer);
Begin
   X:=InitX;
   Y:=InitY;
End;
Function Location.GetX : Integer;
Begin
  GetX:=X;
End;
Function GetY : Integer;
Begin
  GetY:=Y;
End;