Добавить в данную программу текст плавающий

[Vad1k]

Вот код программы, мне нужно чтобы сверху снежинки плавала надпись "С Новым Годом!" желательно чтобы она еще и мигала. у самого никак не получается, одна надежда на этот форум.

program sneg;
uses GraphABC;

const
 speed=1;
 //Размер графического окна
 WinWidth = 750;
 WinHeight = 630;

var
 w,h: integer;         // Размер спрайта
 x, y: integer;        // Координаты спрайта
 dx, dy: integer;      // Приращение координат спрайта (скорость и напр.)
 pic: integer;         // Описатель рисунка
 
begin
 SetWindowCaption('Перемещение картинки "СНЕЖИНКИ"');
 SetWindowSize(WinWidth, WinHeight);
 pic:=LoadPicture('sneg1.gif');           // Загрузка спрайта
 w:=PictureWidth(pic);                    // Чтение размеров картинки
 h:=PictureHeight(pic);

 SetBrushColor(clWhite);

 // Инициализация координат спрайта
 x:=0; y:=0;
 // Инициализация приращения
 dx:=1; dy:=2;

 while(true) do
 begin
 DrawPicture(pic,x,y);     // Вывод изображения
 if x mod speed = 0 then Sleep(1);
 FillRect(x,y,x+w,y-h);    // Стирает спрайт

 // Приращение координат вывода спрайта
 x:=x+dx; y:=y-dy;
 if (y>=WinHeight-h) or (y<=0) then
 dy:=-dy;
 if (x>=WinWidth-w) or (x<=0) then
 dx:=-dx;

 end;
 DestroyPicture(pic);
end.

[Vad1k]

Неужели никто не знает?

[Serge_Bliznykov]

так пойдёт?

program sneg;
uses GraphABC;

const
 speed=2;
 //Разме2р графического окна
 WinWidth = 750;
 WinHeight = 630;

var
 w,h: integer;         // Размер спрайта
 x, y: integer;        // Координаты спрайта
 dx, dy: integer;      // Приращение координат спрайта (скорость и напр.)
 pic: integer;         // Описатель рисунка

begin
 SetWindowCaption('Перемещение картинки "СНЕЖИНКИ"');
 SetWindowSize(WinWidth, WinHeight);
 pic:=LoadPicture('sneg1.gif');           // Загрузка спрайта
 w:=PictureWidth(pic);                    // Чтение размеров картинки
 h:=PictureHeight(pic);

 SetBrushColor(clWhite);

 // Инициализация координат спрайта
 x:=0; y:=0;
 // Инициализация приращения
 dx:=1; dy:=2;

 SetFontSize(25);
 SetFontColor(RGB(Random(255),Random(255),Random(255)));

 while(true) do
 begin
   DrawPicture(pic,x,y);     // Вывод изображения
   TextOut(x,y, 'С НОВЫМ ГОДОМ!');
   if (x mod 100 = 0)
       then SetFontColor(RGB(Random(255),Random(255),Random(255)));
       
   if x mod speed = 0
       then Sleep(50);
   FillRect(x,y,x+w,y-h);    // Стирает спрайт

   // Приращение координат вывода спрайта
   x:=x+dx; {y:=y-dy;
   if (y>=WinHeight-h) or (y<=0) then
   dy:=-dy;   }
   if (x>=WinWidth-w) or (x<=0) then
   dx:=-dx;
 end;
 DestroyPicture(pic);
end.