Нельзя преобразовать тип array [1.10] of integer к integer

uses GraphABC;
...
var 
  v: array[1..10] of Picture;
x2,y2: array[1..10] of integer;
  ky: integer;
procedure vrag();
Begin
 ky := 1;
 for var i := 1 to 10 do
  begin
     x2[i] := random(0,499);
     y2[i] := 0; 
     v[i] := picture.Create('враг.png');
     v[i].Load('враг.png');
     v[i].Draw(x2[i],y2[i], 50,50);
     repeat
     if y2<0 then ky := ky +1;
     y2 := y2+ky;
     sleep(10);
   until false;
   end;
end;
 
....
 
begin
...
vrag;

if y2<0 then ky := ky +1;
     y2 := y2+ky;
     sleep(10);

for i:=1 to 10 do
if y2[i]<0 then y2[i]:=y2[i]+ky;

uses GraphABC, Timers;
 
var враг := New Picture('vrag.png');
 
type
  типВраги = class
    x, y, dy : Integer; // координаты и скорость
    live : Boolean;
    
    constructor;
    begin
      live := False;
    end;
    
    procedure новыйВраг;
    begin
      x := Random(Window.Width - враг.Width);
      y := 0;
      dy := 1;
      live := True;
      
      вывести;
    end;
    
    procedure шаг;
    begin
      if Not live then
        новыйВраг
      else
        begin
          if Random(2) = 0 then dy += 1;
          y += dy;
          live := y < Window.Height;
          if live then
            вывести;
        end;
    end;
    
    procedure вывести;
    begin
      враг.Draw(x, y)
    end;
    
  end;
 
var
  враги := 1.to(10).Select(x->New типВраги).ToArray;
  таймер : Timer;
 
procedure тикТак;
begin
  Window.Clear;
  for var i := 0 to враги.Count-1 do
    враги[i].шаг;
  Redraw;
end;
 
begin
  LockDrawing;
  таймер := New Timer(20, тикТак);
  таймер.Enabled := True;
end.

...
type
  типВраги = class
    x, y, dy : Integer; // координаты и скорость
    live : Boolean;
    static враг := New Picture('vrag.png');
    ...