Почему не работают кнопки сдвига графика не работают.

program gpahif;
uses crt,graph;
var yso,xso,yss,xss,j,d,m,xs,ys,xs2,ys2,i,x33,y33:integer;
    x,y,t:real;
    s,st:string;
    kn:char;
const r=10;
      xs1=0;
      ys1=0;
      x1=-5;
      y1=5;
      x2=5;
      y2=-5;
      toptext=3.5;
      righttext=0;
begin
  d:=vga;
  initgraph(d,m,'');
  setbkcolor(black);
  xs2:=getmaxx;
  ys2:=getmaxy;
    for i:=0 to xs2 do
  begin
    x:=((x2-x1)/(xs2-xs1)*(i-xs1)+x1);
    y:=exp(x);
    ys:=round((ys2-ys1)/(y2-y1)*(y-y1)+ys1);
    if (i=0) then moveto(i,ys) else lineto(i,ys);
    setcolor(15);
  end;
 
  x:=0; {os y}
  xs:=round((xs2-xs1)/(x2-x1)*(x-x1)+xs1);
  line(xs,ys1,xs,ys2);
  line(xs-10,ys1+3,xs,0);
  line(xs+10,ys1+3,xs,0);
  outtextxy(xs+15,0,'y');
 
  y:=0;
  ys:=round((ys2-ys1)/(y2-y1)*(y-y1)+ys1);
  line(0,ys,getmaxx,ys);
  line(xs2,ys,xs2-5,ys+5);
  line(xs2,ys,xs2-6,ys-5);
  {line(xs2,ys,xs2-5,ys+5);
  line(xs2,ys,xs2-6,ys-5);}
  {lol:=xs1}
outtextxy(xs2-10,ys,'x');
 
    t:=0;
    while t<2*pi do                                  {funciya}
      begin
       x:=cos(7*t);
       y:=sin(t);
       x33:=round((xs2-xs1)/(x2-x1)*(x-x1)+xs1);
       y33:=round((ys2-ys1)/(y2-y1)*(y-y1)+ys1);
       if (t=0) then moveto(x33,y33) else lineto(x33,y33);
       {putpixel(x33,y33,15);                   }
       t:=t+0.01;
       setcolor(3);
     end;
     begin
kn:=readkey;
case kn of
#27:begin closegraph;halt(1) end;   {escape}
#75: xs:=xs-10;     {knopki vlevo,vpravo,vniz,vverx}
#77: xs:=xs+10;
#72: ys:=ys-10;
#80: y:=ys+10;
end;
     y:=0;
     yss:=round((ys2-ys1)/(y2-y1)*(y-y1)+ys1);
     for xss:=x1+1 to x2-1 do
     begin
       xso:=round((xs2-xs1)/(x2-x1)*(xss-x1)+xs1);     {zase4ki na x}
       line(xso,yss+3,xso,yss-3);
              settextstyle(1,0,3);
             str(xss,s);
       settextjustify(centertext,righttext);
       outtextxy(xso,yss-3,s);
 
 
    end;
 
x:=0;
    xss:=round((xs2-xs1)/(x2-x1)*(x-x1)+xs1);        {zase4ki na y}
      for yss:=y1-1 downto y2+1 do
    begin
     yso:=round((ys2-ys1)/(y2-y1)*(yss-y1)+ys1);
     line(xss-3,yso,xss+3,yso);
   settextstyle(1,0,3);
     str(yss,s);
     settextjustify(centertext,centertext);
     outtextxy(xss-10,yso,s);
 
end;
end;
readln;
closegraph;
end.