Графика: Вывести надпись так, чтобы по очереди буквы сначала "приближались" к нам, затем "удалялись" обратно...

uses GraphABC;
 
procedure DrawChar(s : Char; c, scr, wScr, w, x : Integer);
begin
  Font.Size := c = scr ? wScr : w; DrawTextCentered(Window.Center.X + x, Window.Center.Y, Window.Center.X + x, Window.Center.Y, s);
end;
 
procedure Scroll(s : String);
const
  rait = 5;
  wait = 10;
begin
  LockDrawing;
  var size := 0; repeat size += 1; Font.Size := size; until TextWidth(s) > Window.Width div 2;
  var w := 0; foreach var c in s do w := max(w, TextWidth(c));
  var x0 := -(s.Length div 2)*w+(not odd(s.Length)?w div 2:0);
  var n := s.Select((c,i)->c<>#32?i+1:0).Where(i->i>0);
  foreach var scr in n do
    begin
      for var wScr := w to w * rait do
        begin
          Window.Clear; var x := x0; for var c := 1 to s.Length do begin DrawChar(s[c], c, scr, wScr, w, x); x += w; end; Redraw; Sleep(wait);
        end;
      for var wScr := w * rait downto w do
        begin
          Window.Clear; var x := x0; for var c := 1 to s.Length do begin DrawChar(s[c], c, scr, wScr, w, x); x += w; end; Redraw; Sleep(wait);
        end;
    end;
  UnlockDrawing;
end;
 
begin
  Scroll('Шоколадка');
end.