Помогите, плиз, написать комментарии к программам Паскаль.

[La_vita]

Первая программа с графикой:

uses graphABC;
type point=record
x,y:integer;
end;
procedure trg(x,y,r:integer);
var p:array[1..4] of point;
u:real;
i:byte;
begin
u:=pi/2;
for i:=1 to 4 do
begin
p[i].x:=x+round(r*cos(u));
p[i].y:=y-round(r*sin(u));
u:=u+2*pi/3;
end;
polygon(p,4);
end;
procedure romb(x,y,a,b:integer);
var p:array[1..5] of point;
begin
p[1].x:=x; p[1].y:=y-b;
p[2].x:=x+a; p[2].y:=y;
p[3].x:=x; p[3].y:=y+b;
p[4].x:=x-a; p[4].y:=y;
p[5]:=p[1];
polygon(p,6);
end;
var n1,n2,r1,r2,i:integer;
begin
setwindowsize(600,600);
centerwindow;
setbrushstyle(bsClear);
r1:=10;
r2:=100;
n1:=120;
n2:=360;
for i:=1 to 3 do
begin
setpencolor(clRed);
trg(n1+random(n2),n1+random(n2),r1+random(r2));
setpencolor(clBlue);
romb(n1+random(n2),n1+random(n2),r1+random(r2),r1+random(r2));
setpencolor(clGreen);
rectangle(n1+random(n2)-(r1+random(r2)),n1+random(n2)-(r1+random(r2)),
n1+random(n2)+(r1+random(r2)),n1+random(n2)+(r1+random(r2)));
setpencolor(clLime);
ellipse(n1+random(n2)-(r1+random(r2)),n1+random(n2)-(r1+random(r2)),
n1+random(n2)+(r1+random(r2)),n1+random(n2)+(r1+random(r2)));
setpencolor(clPurple);
line(n1+random(n2)-(r1+random(r2)),n1+random(n2)-(r1+random(r2)),
n1+random(n2)+(r1+random(r2)),n1+random(n2)+(r1+random(r2)));
end;
for i:=1 to 1000 do
setpixel(n1+random(n2),n1+random(n2),clMaroon);
end.

Вторая программа с сортировкой прямого выбора:

uses crt;
var
a:array [1..100,1..100] of integer;
i,j,k,n,m,y,c:integer;
begin
write('Введите количество строк: ');
readln(n);
write('Введите количество столбцов: ');
readln(m);
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(98)+1;
write(a[i,j]:4);
end;
writeln;
end;
for j:=1 to m do
if (j mod 2=0) then
begin
for k:=n downto 2 do
begin
y:=1;
for i:=2 to k do
if a[i,j]>a[y,j] then
y:=i;
if y<>k then
begin
c:=a[y,j];
a[y,j]:=a[k,j];
a[k,j]:=c;
end;
end;
end;
writeln;
writeln('Отсортированный массив:');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
end.

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

Модератор.