Нарисовать блики на море

program abc;
 
uses
  graphABC;
 
var
  y, x1, y1, i, j, k: integer;
 
begin
  setwindowsize(900, 600);
  lockdrawing;
  y1 := 0;
  x1 := 450;
  for i := 1 to 250 do
  begin
    clearwindow;
    if y1 >= 400 then
    begin
      setpencolor(clBlack);
      setbrushcolor(clBlack);
      rectangle(0, 0, 900, 200);
      setpencolor(clBlack);
      setbrushcolor(clBlack);
      rectangle(0, 200, 900, 400);
    end else
    if y1 >= 300 then
    begin
      setpencolor(rgb(39, 33, 61));
      setbrushcolor(rgb(39, 33, 61));
      rectangle(0, 0, 900, 200);
      setpencolor(rgb(39, 33, 61));
      setbrushcolor(rgb(39, 33, 61));
      rectangle(0, 200, 900, 400);
    end else
    if y1 >= 200 then
    begin
      setpencolor(rgb(48, 43, 98));
      setbrushcolor(rgb(48, 43, 98));
      rectangle(0, 0, 900, 200);
      setpencolor(rgb(48, 43, 98));
      setbrushcolor(rgb(48, 43, 98));
      rectangle(0, 200, 900, 400);
    end else
    if y1 >= 100 then
    begin
      setpencolor(rgb(57, 49, 133));
      setbrushcolor(rgb(57, 49, 133));
      rectangle(0, 0, 900, 200);
      setpencolor(rgb(57, 49, 133));
      setbrushcolor(rgb(57, 49, 133));
      rectangle(0, 200, 900, 400);
    end else
    begin
      setpencolor(clblue);
      setbrushcolor(clblue);
      rectangle(0, 0, 900, 200);
      setpencolor(clBlue);
      setbrushcolor(clBlue);
      rectangle(0, 200, 900, 400);
    end;
    setpencolor(clyellow);
    setbrushcolor(clyellow);
    y1 := y1 + 2;
    circle(x1, y1, 50);
    
    setpencolor(clTeal);
    setbrushcolor(clTeal);
    rectangle(0, 400, 900, 600);
    
    if y1 <= 450 then
    begin
      y := 420; k := 20;
      for j := 1 to 15 do
      begin
        setpencolor(clYellow);
        setbrushcolor(clYellow);
        Ellipse(440 - k, y, 465 + k, y + 10);
        y := y + 20;
        if j mod 2 = 0 then k := k - 5 else
          k := k + random(20);
        sleep(20);
      end;
    end else
    begin
      setpencolor(clBlue);
      setbrushcolor(clBlue);
      rectangle(0, 400, 900, 600);
    end;
    sleep(10);
    redraw;
  end;
  
end.

  y, x1, y1, i, j, k,l,m: integer;

        for l:=1 to 10 do
            begin
            m:=random(900);
            Ellipse(m-random(10)-k, y, m+random(10)+ k, y + 10);
            end;