Напишите пожалуйста комментарии к программе

program task_3; 
var 
  k:integer; // ваш комментарий. зачем эта переменная
  k1:integer; // ваш комментарий. зачем эта переменная
  i:integer; // ваш комментарий. зачем эта переменная
  j:integer; // ваш комментарий. зачем эта переменная
begin
 repeat // ваш комментарий. зачем нужен этот цикл
 write('Введите целое положительное число больше единицы: ');
 readln(k);
 until k>1;  // ваш комментарий к условию 
 writeln('----------------------');
 write('Число ',K,' раскладывается на простые множители так: ',k,'='); // ваш комментарий
 k1:=k; // ваш комментарий оператора
 i:=2; // ваш комментарий оператора
 j:=0;  // ваш комментарий оператора
 { поиск разложения}
 while k1>1  // ваш комментарий к условию
  do
    if k1 mod  i=0  // ваш комментарий к условию
     then begin // ваш комментарий. когда выполняется часть then 
       if j=1 then write('*')  else j:=1; // ваш комментарий к оператору
       write(i); // ваш комментарий к оператору
       k1:=k1 div i // ваш комментарий к оператору. почему не обязательна ;
      end
     else i:=i+1; // ваш комментарий к оператору
 writeln('.');  // ваш комментарий к оператору
 readln;
end.

var
  k:integer; // число, которое введем и будем раскладывать
//  k1:integer; // абсолютно лишняя переменная
  i:integer; // возможные делители числа
  j:integer; // количество каждого делителя
begin
 repeat // ввод числа с проверкой
 write('Введите целое положительное число больше единицы: ');
 readln(k);  //здесь ; тоже не обязательна (перед until)
 until k>1;  // пока не введено число >1
 writeln('----------------------');
 write('Число ',K,' раскладывается на простые множители так: ',k,'='); // вывод числа
// k1:=k; // нафиг не нужно
 i:=2; // первый возможный делитель=2
 j:=0;  // пока его нет
 { поиск разложения}
 while k>1  // пока число больше 1
  do
    if k mod  i=0  // если делится на i без остатка
     then begin // то выполняем следующее
       if j=1 then write('*')  else j:=1; // если есть делитель то выводим за ним *
       write(i); // выводим делитель
       k:=k div i // сокращаем число в i раз, ; не обязательна потому что дальше идет end
      end
     else i:=i+1; // если на i не делится, то +1
 writeln('.');  // конец вывода делителей точка
 readln;// ; не обязательна потому что дальше идет end
end.