Ошибки в коде

program matem_mayatnik;
uses graph,crt;
var
    n,x,y,h,l,k,d:real;
    c,y1,a,x0,y0,gd,gm:integer;
procedure OpenGraph;
 
var
   gd,gm:integer;
begin
  gd:=detect;
  nitgraph(gd,gm,'');
  if graphresult<>0 then begin
    writeln('ЋиЁЎЄ* Ё*ЁжЁ*«Ё§*жЁЁ Ја*дЁзҐбЄ®Ј® ०Ё¬* ');
    readln;
    halt;
  end;
end;
 
procedure CloseGraph;
 
begin
  CloseGraph;
  if graphresult<>0 then
  begin
    writeln('ЋиЁЎЄ*  §*ЄалвЁп Ја*дЁзҐбЄ®Ј® ०Ё¬*');
    readln;
    halt;
  end;
end;
 
procedure Output(x0,y0:integer;l,h:real);
 
begin
  k:=(l-sqrt(l*l-h*h))/1;
  y1:=round(y0+k-l);
{podves}
  setcolor(brown);
  setfillstyle(1,brown);
  bar(x0-40,y1,x0+40,y1-4);
  putpixel(x0,y0,green);
  moveto(x0,y1);
  a:=a+round(d);
  x:=x0+h*cos(a*pi/180);
  y:=sqrt(l*l-(x-x0)*(x-x0))+y1;
  if (a=180) or (a=0) then d:=-d;
  setcolor(white);
  lineto(round(x),round(y));
  setcolor(green);
  {circle(round(x),round(y),5);}
  circle(round(x),round(y),2);
  circle(round(x),round(y),4);
  circle(round(x),round(y),3);
  circle(round(x),round(y),1);
  if a mod 3 = 0 then
  cleardevice;
  delay(650);
end;
 
begin
  clrscr;
  gd:=detect;
  gm:=0;
  d:=1;
  writeln('‚ўҐ¤ЁвҐ ®вЄ«®*Ґ*ЁҐ ®в Ї®«®¦Ґ*Ёп а*ў*®ўҐбЁп');
  readln(h);
  writeln('‚ўҐ¤ЁвҐ ¤«Ё*г *ЁвЁ');
  readln(l);
  writeln('‚ўҐ¤ЁвҐ Є®®а¤Ё**вл X и*а*');
  readln(x0);
  writeln('‚ўҐ¤ЁвҐ Є®®а¤Ё**вл Y и*а*');
  readln(y0);
 
  {x0:=320;
  y0:=420;
  l:=320;
  h:=100;}
  writeln('1 - ‡*вге*ойЁҐ');
  writeln('2 - ЌҐ §*вге*ойЁҐ');
  readln(c);
  initgraph(gd,gm,'');
  if c=1 then
  repeat
    n:=n+1;
    if (n>=180) then
    begin
      h:=h-2;
      n:=0;
    end;
    output(x0,y0,l,h);
  until keypressed;
  if c=2 then
  repeat
   output(x0,y0,l,h);
  until keypressed;
  closegraph;
end.