Змейка на паскале

uses graphabc,timers;
 
var
  x,y: array[1..1000] of integer;
  k: integer=7;
  r, dx, dy:integer;
  c: Color; TheEnd: boolean=false;
 
procedure zmei;
begin
   for var j:=1 to k do begin 
        C:=clDarkKhaki; r:=5;
        if j=1 then C:=clDarkGreen;
        if j=k then begin  C:=clWhite;r:=6; end;
       setpencolor(C);SetBrushColor(C);
       circle(x[j],y[j],r);
  end;      
end;
procedure KeyDown(Key: integer);
begin
 dx:=0;dy:=0;
   case Key of
  VK_Left:  dx:=-10;
  VK_Right: dx:=10;
  VK_Up:    dy:=-10;
  VK_Down:  dy:=10;
  VK_Escape: TheEnd:=true;
   end;
      if (x[1]+dx<=5) or (x[1]+dx>=1195) then dx:=0;
      if (y[1]+dy<=5) or (y[1]+dy>=795) then dy:=0;
      zmei; x[1]+=dx;y[1]+=dy;
     zmei;
      for var i:=k downto 2 do begin
        x[i]:=x[i-1];
        y[i]:=y[i-1];
      end;
     
end;
 
begin
  x[1]:=random(1,200)*5; y[1]:=random(1,159)*5;
  for var i:=2 to k do begin
    x[i]:=x[i-1]+10;
    y[i]:=y[i-1];
  end;
 
  SetWindowSize(1200,800);SetWindowPos(5,5);
   zmei;
    OnKeyDown := KeyDown;
 
 
  repeat
  until TheEnd;
 
end.