дописать комментарии к готовым программам

[lika1129970]

Сортировка выбором. Требуется отсортировать массив по возрастанию.

const n = 10;
 
var
    arr: array[1..n] of byte;
    max, id_max, i, j: byte;
 
begin
    randomize;
    for i := 1 to n do begin
        arr[i] := random(256);
        write(arr[i]:4)
    end;
    writeln;
 
    j := n;
 
    while j > 1 do begin
        max := arr[1];
        id_max := 1;
        for i := 2 to j do
            if arr[i] > max then begin
                max := arr[i];
                id_max := i
            end;
        arr[id_max] := arr[j];
        arr[j] := max;
        j := j - 1
    end;
 
    for i := 1 to n do
        write(arr[i]:4);
 
readln
end.

графика. нарисовать падающий снег

uses ABCObjects;
var
  z:array[1..10] of PictureABC;
  i,j: integer;
procedure MoveAll(a,b: integer);
var j: integer;
begin
    for j:=1 to Objects.Count do  Objects[j].moveOn(a,b);
end;
begin
//  LockDrawingObjects;
 for i:=1 to 10 do begin
 z[i]:=PictureABC.Create(random(400),random(400),'C:\Temp\Снежинка3.bmp');
end;
  MoveAll(100,100);
  LockDrawingObjects;
  RedrawObjects;
  while True do
  begin
    for j:=1 to Objects.Count do
      Objects[j].moveOn(Random(3)-1,1);
     for i:=1 to 10 do begin
      if z[i].Top>400 then z[i].Top:=0-random(100);
     end;
    RedrawObjects;
      sleep(20);
  end;
end.

графика. нарисовать букву в объемном изображении

uses ABCObjects;

var
  bt: TextABC;
  x: integer;

begin

  bt:=CreateTextABC(60,110,110,RGB(224,224,224),'G');
    x:=15;
  while x>0 do
  begin
    Dec(x);
    bt:=TextABC(bt.Clone);
    bt.Color:=RGB(x*10,x*5,x);
    bt.MoveOn(1,1);
  end;
end.

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

Модератор.