Надо преобразовать код

uses crt, graphABC;
 
const
  N = 100; { число звезд }
  view = 200; { дистанция просмотра }
  speed = 50;{ скорость полета }
 
var
  x, y, z, _x, _y : array[1..N] of integer;
  colors : array[1..N] of Color;
  i, xc, yc: integer;
 
procedure KeyDown(key : Integer);
begin
  Window.Close 
end;
 
 
begin
  randomize;
  
  for i := 1 to N do
  begin
    
    { установка начальных координат звезд }
    
    x[i] := -10 * view + random(20 * view);    
    y[i] := -10 * view + random(20 * view);    
    z[i] := view + random(20 * view)
    
  end;
 
  SetWindowSize(640,480);
  Window.CenterOnScreen; 
  
  xc := Window.Width div 2; {экран}
  
  yc := Window.Height div 2; {Y X view}
  for i:=1 to N do colors[i] := clBlack;
  Window.Clear(clBlack);
  LockDrawing;
  OnKeyDown := KeyDown;
  repeat
    
    { Расчет перспективных проекций звезд и их вывод }
    
    for i := 1 to N do      
      
      { если проекция звезды в пределах экрана }
      if(z[i] / (abs(x[i]) + 1) > view / xc)
         and (z[i] / (abs(y[i]) + 1) > view / yc) then 
      begin
        { вычисление координат с учетом перспективы }
        _x[i] := xc + round(x[i] * (view / z[i]));
        _y[i] := yc + round(y[i] * (view / z[i]));
        putpixel(_x[i], _y[i], colors[i])
      end      
      else      
        { для вышедших из поля зрения звезд переназначаем координаты }      
        z[i] := view + random(20 * view);
    
    Redraw;
    delay(50); { задержка видимости набора звезд }
    
    for i := 1 to N do
    begin
      dec(z[i], speed); { смена координат звезд }
      { цвет зависит от дальности }
      if z[i] < 4 * view then colors[i] := clYellow {14}
      else if z[i] < 9 * view then colors[i] := clCyan {11}
      else colors[i] := clBlue {9} 
    end;
    
    { стирание по старым координатам }
    for i := 1 to N do putpixel(_x[i], _y[i], clBlack);
    
  until KeyPressed;
end.