графика, модификация программы

[Шорох Анастасия]

препод дала задания и отправила решать ничего не объясняя(
а я то циклы с горем пополам разбираю. вот. графика
Модифицировать программу " взрыв ":

1. Сделать бомбу - в виде квадрата . При достижении краев экрана осколки
бомбы должны высвечиваться красным цветом ( в программе использовать
массив цветов осколков ).
2. Сделать бомбу - в виде круга. Осколки бомбы должны снижать скорость
при движении.
3. Смоделировать бомбу , падающую с середины верхней части экрана и
взрывающуюся при достижении нижнего края экрана .
4. Смоделировать два движущихся по горизонтали снаряда, взрывающихся
при столкновении .


вот, что есть в учебнике

{ Фрагмент   программы  " взрыв " (рисование  движущегося   массива  пикселов  
с остановкой  на  границах  экрана ).} 
  x1:= Gx div 2; 
  y1:= Gy div 2; 
  for i:=1 to 300 do 
   begin 
   { массив   осколков  } 
    X[i]:= x1+ i mod 10; 
    Y[i]:= y1+ i div 10;  
    PutPixel(X[i], Y[i], 15); 
    VX[i]:= -10 + random(21); 
    VY[i]:= -10 + random(21)   
   end;  
 SetColor(5); 
 {бомба } 
  Rectangle(x1, y1, x1+9, y1+30); 
 {задержка  до нажатия  клавиши } 
 ch:= ReadKey; 
  for i:=1 to 100 do 
   begin 
   sound(random(80)); 
   delay(1); 
   {звук  взрыва } 
   nosound 
   end; 
 SetColor(0); 
 {взрыв  бомбы } 
  Rectangle(x1, y1, x1+9, y1+30); 
 Repeat 
    for i:=1 to 300 do 
   begin 
      if(X[i]+VX[i] > 0) and (X[i]+VX[i] < Gx) and (Y[i]+VY[i] > 0) 
   and (Y[i]+VY[i] < Gy) then 
    begin 
    { если  пиксел  не  перелетит  за  край  экрана  } 
    PutPixel(X[i],Y[i],0); 
    X[i]:= X[i]+VX[i]; 
    Y[i]:= Y[i]+VY[i]; 
    PutPixel(X[i], Y[i], 14) 
    end{ движение осколков  } 
     else 
 69
     begin 
     VX[i]:= 0; 
     VY[i]:= 0;{ если  пиксел  долетел до края  экрана  } 
     sound(200); 
     delay(2); 
     nosound 
     end 
    end 
 Until Keypressed;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.