Написать комментарий к каждой строке программы

program lab1;
const nmax = 100;
type vector = array [1..nmax] of integer;
var a:vector;
    i,n,x,l,r,j,c,num:integer;
procedure InsertSortEnd(var a: vector); //Сортировка вставками с конца массива
var
  i, j, buf: integer;
begin  {InsertSortEnd}
  for i := n-1 downto 1 do
  begin
    buf := a[i];
    j := i + 1;
    while (j <= n) and (a[j] < buf) do
    begin
      a[j - 1] := a[j];
      j := j + 1;
    end;
    a[j - 1] := buf;
  end;
end;  {InsertSortEnd}
 
procedure printarray(a:vector);  //Вывод массива на экран
var i:integer;
begin  {randomarray}
  for i:=1 to n do
    write(a[i]:4);
  writeln;
end;  {randomarray}
 
begin
  randomize;
  repeat
  writeln('Введите размер массива(n<=100):');
  readln(n);
  until n<=100;
  for i:=1 to n do
    a[i]:=random(n)+1;
  writeln('Исходный массив имеет вид:');
  printarray(a);
  insertsortend(a);
  writeln('Отсортированный массив имеет вид:');
  printarray(a);
  //Двоичный поиск
  write('Введите число для поиска x=');
  readln(x);
  l:=1;
  r:=n;
  j:=0;
  while (l<=r)and (j=0) do
  begin
    c:=(l+r) div 2;
    if x<a[c] then r:=c-1
    else if x>a[c] then l:=c+1
    else j:=1;
  end;
  if j=0 then write('Числа, равного ',x,' в массиве нет')
  else begin
  num:=0;
  for i:=1 to n do
  if (a[i]=x)and(num=0) then num:=i;
  end;
  write('Число, равное ',x,' в массиве есть под номером ',num)
end.