Закомментить исходный код (Паскаль)

var s: string; // объявление переменной s типа строка
i, n: integer; // объявление переменных i, n типа целое число
begin // начало программы
writeln('Введите строку: '); // вывод текста с предложением ввести строку
readln(s); // чтение введенного значения (строка с запятыми)
for i := length(s) downto 1 do if s[i] = ',' // начало цикла, i начинается от длины введенной строки с шагом -1.
В теле цикла: если текущий символ = запятая...
then begin // тогда
delete(s,i,1); // удаляем этот символ
inc(n) // увеличиваем переменную n на 1 (для счетчика запятых)
end; // конец цикла
writeln('Строка без запятых: '); // вывод текста
writeln(s); // вывод строки s с удаленными запятыми
write('Число удаленных запятых: ', n, ', Длина текста: ', length(s)); // вывод переменной n и длины строки s
readln // чтобы программа не закрылась сразу, ожидание нажатия любой кнопки
end. // конец программы

Удобнее эту программу переписать так:
var s: string; i, n: integer; // объявляем переменные
begin
writeln('Введите строку: '); readln(s); // вводим строку
for i := length(s) downto 1 do if s[i] = ',' then begin delete(s,i,1); inc(n) end; //считаем
writeln('Строка без запятых: '); writeln(s); // выводим результаты счета
write('Число удаленных запятых: ', n, ', Длина текста: ', length(s)); readln
end.

var s: string; // строка 1
i, n: integer; // строка 2
begin // строка 3
writeln('Введите строку: '); // строка 4
readln(s); // строка 5
for i := length(s) downto 1 do if s[i] = ',' // строка 6
then begin // строка 7
delete(s,i,1);// строка 8
inc(n) // строка 9
end; // строка 10
writeln('Строка без запятых: '); // строка 11
writeln(s); // строка 12
write('Число удаленных запятых: ', n, ', Длина текста: ', length(s)); // строка 13
readln // строка 14
end. // строка 15

обратись к тому, кто писал эту элементарную программу

Выделяешь текст, правка - закоментировать.

Просто гугли каждую строчку))