написать комментарий к каждой строчке в паскале

[topchik]

const
  maxRandomValue = 10; // рандомное число  0-10
  
type
  tList = ^rList;
  rList = record
    a : Integer;
    n : tList;
  end;
//Функция заполняет список рандомными числами 
function CreateRandomList(n : Integer) : tList;
var
  Cur : tList; 
begin
  if n <= 0 then //если n<=0 то
    CreateRandomList := nil //в данный момент ни на чт оне указывает 
  else
    begin
      New(Cur); //динамич. перемен. 
      Cur^.a := Random(maxRandomValue); //элементу присваем рандомное число 
      CreateRandomList := Cur; //к списку присваиваем значение элемента 
      while n > 1 do //пока n>1 то 
        begin
          New(Cur^.n); //динамич. перемен.
          Cur := Cur^.n; //присваиваем элементов новое значение 
          Cur^.a := Random(maxRandomValue); //присваиваем элементов рандомное чило
          Dec(n); //уменьшаем значение переменной на 1
        end;
      Cur^.n := nil; //в данный момент ни на чт оне указывает
    end;
end;
//Функция делает поиск максимального элемента списка 
function MaxList(a : tList) : Integer;
var
  m : Integer;
begin
  MaxList := 0; // присваиваем значени 0
  if a = nil then Exit; //если a=0 то завершаем процедуру
  
  m := a^.a; // присваиваем значение 
  while a <> nil do
    begin
      if a^.a > m then m := a^.a;
      a := a^.n;
    end;
    
  MaxList := m;
end;
//Процедура дублирует максимальный элемент 
procedure ModificationList(m : Integer; var a : tList);
var
  Cur, Next : tList;
begin
  Cur := a;
  while Cur <> nil do
    if Cur^.a = m then
      begin
        Next := Cur^.n; //динамич. перемен.
        New(Cur^.n); //динамич. перемен.
        Cur := Cur^.n;
        Cur^.a := m;
        Cur^.n := Next;
        Cur := Next;
      end
    else
      Cur := Cur^.n;
end;
  
procedure OutList(a : tList);
var
  Cur : tList;
begin
  if a = nil then WriteLn('<список пуст>')
  else
    begin
      Cur := a;
      while Cur <> nil do
        begin
          Write(#32, Cur^.a);
          Cur := Cur^.n;
        end;
      WriteLn;
    end;
end;
 
var
  n, m : Integer;
  a : tList;
begin
  Randomize;
  Write('Число элементов списка: n = '); ReadLn(n);
  a := CreateRandomList(n);
  Write('Список a:'); OutList(a);
  m := MaxList(a); WriteLn('Максимальное значение = ', m);
  ModificationList(m, a);
  Write('Список a:'); OutList(a);
end.