Закомментировать программу

program L2;
uses crt;
var
  TD:string;
  DT:longint;
function FromDec(n,r:longint):string;
var
  s:String;
const
  symbols:string[10]='0123456789';
begin
  s:='';
  repeat
    s:=symbols[(n mod r)+1]+s;
    n:=n div r;
  until n=0;
    FromDec:=s;
end;
function ToDec(n:string;r:longint):longint;
var
  m,i:longint;
const
  symbol:string[10]='0123456789';
begin
  m:=0;
  while n[1]='0' do
    delete(n,1,1);
  for i:=1 to length(n) do
    m:=m*r+pos(n[i],symbol)-1;
  ToDec:=m;
end;
begin
  writeln('Введите число в 8-й системе счисления:');
  readln(TD);
  writeln('В 10-й системе счисления:');
  dt:=ToDec(TD,8);
  writeln(dt);
  writeln('В 4-й системе счисления:');
  writeln(FromDec(DT,4));
  writeln('В 7-й системе счисления:');
  writeln(FromDec(DT,7));
  readln
 
end.

program L2; {Начало программы}
uses crt; {Подключение модуля crt}
var {Раздел описания переменных}
  TD:string; {Переменную TD объявили как символьную строку}
  DT:longint; {Переменную DT объявили как расширенный тип integer }
function FromDec(n,r:longint):string; {Функция перевода из одной системы счисления в другую}
var {Раздел объявления локальных переменных}
  s:String; {Переменной S объявили тип символьной строки}
const {Раздел описания локальных констант}
  symbols:string[10]='0123456789'; {Переменную symbols определили как символьную строку и задали ей значение '0123456789'}
begin {Начало тела функции}
  s:=''; {Переменной s присваивается пустая строка}
  repeat {Начало цикла "повтори"}
    s:=symbols[(n mod r)+1]+s; {Переменной s присваивается переменная symbols с количеством символов (n mod r) + 1 и к переменной и прибавляется переменная s}
    n:=n div r; {Переменной n присваивается значение переменной n, разделенной нацело на переменную r}
  until n=0; {конец цикла "Повтори". Цикл повторится при условии, что n не равно 0}
    FromDec:=s; {Конечный результат функции}
end; {Конец тела функции}
function ToDec(n:string;r:longint):longint; {Функция перевода из одной системы счисления в другую}
var {Раздел описания локальных переменных}
  m,i:longint; {Переменным m,i присвоен тип longint}
const {Раздел описания локальных констант}
  symbol:string[10]='0123456789'; {Переменную symbols определили как символьную строку и задали ей значение '0123456789'} 
begin {Начало тела процедуры}
  m:=0; {Переменная m изначально равна 0}
  while n[1]='0' do {Пока N[1]='0' выполняется следующее:}
    delete(n,1,1); 
  for i:=1 to length(n) do
    m:=m*r+pos(n[i],symbol)-1;
  ToDec:=m; {Функции присваивается конечный результат}
end; {Конец тела функции}
begin {Начало программы}
  writeln('Введите число в 8-й системе счисления:'); {Вывод на экран текста}
  readln(TD); {Ввыод переменной TD}
  writeln('В 10-й системе счисления:'); {Вывод на экран текста}
  dt:=ToDec(TD,8); {Переменной dt присваивается значение функции ToDec(TD,8)}
  writeln(dt); {Вывод переменной DT}
  writeln('В 4-й системе счисления:'); {Вывод текста на экран}
  writeln(FromDec(DT,4)); {Вывод значение процедуры FromDec(DT,4)}
  writeln('В 7-й системе счисления:'); {Вывод текста}
  writeln(FromDec(DT,7)); {Вывод значение процедуры FromDec(DT,7)}
  readln {Оператор пустого ввода}
 end.{Конец программы}