Нужны коментарии к проге

var s,sl: string;
a: array [1..100] of string;
i,j,r: integer;
begin
writeln('Введите строку');
readln(s); s:=s+' '; sl:=''; j:=0;
for i:=1 to length(s) do
if (s[i]<>' ') and (s[i]<>',') then sl:=sl+s[i] else
begin
if length(sl)>0 then
begin
inc(j);
a[j]:=sl;
sl:='';
end;
end;
r:=0;
while r<=j do
begin
for i:=1 to j-1 do
if a[i][1]>a[i+1][1] then
begin
sl:=a[i];
a[i]:=a[i+1];
a[i+1]:=sl;
end;
inc(r);
end;
for i:=1 to j do
write(a[i],' ');
end.

var s,sl: string;                //переменные для строки и слова
a: array [1..100] of string;     //массив слов строки
i,j,r: integer;                  //счетчики
begin
writeln('Введите строку');       //запрашиваем и считываем строку
readln(s); s:=s+' '; sl:=''; j:=0;   //добавляем к строке пробел, чтобы не потерять последнее слово, счетчик элементов массива (слов) пока равен 0
for i:=1 to length(s) do             //в цикле с параметром перебираем все элементы строки
if (s[i]<>' ') and (s[i]<>',') then sl:=sl+s[i] else    //если символ не запятая и не пробел, добавляем его к формируемому новому слову
begin                                //иначе приступаем к обработке собранного слова
if length(sl)>0 then                 //если его длина больше 0
begin
inc(j);                             //увеличиваем индекс массива слов на 1
a[j]:=sl;                           //в элемент массива под данным номером записываем слово
sl:='';                             //очищаем переменную для нового слова
end;
end;
r:=0;                               //счетчик чиклов перебора для сортировки изначально равен 0
while r<=j do                       //пока число переборов не достигнет числа элементов в цикле с предусловием
begin
for i:=1 to j-1 do                  //запускаем цикл с параметром и в этом цикле
if a[i][1]>a[i+1][1] then           //сравниваем первые буквы текущего элемента и следующего (сортировка слов обсуществляется только по первой букве)
begin                               //и если первая буква текущего элемента больше, чем следующего, меняем местами
sl:=a[i];                          //в переменную слово помещаем значение текущего элемента
a[i]:=a[i+1];                      //в переменную текущего элемента помещаем следующий элемент
a[i+1]:=sl;                        //в переменную следующего элемента помещаем бывшее значение текущего из врменного хранилища
end;
inc(r);                            //увеличиваем счетчик переборов цикла
end;
for i:=1 to j do                   //в цикле с параметром
write(a[i],' ');                   //выводим отсортированные слова
end.

var s,s1: string;
i,count,j: integer;
begin
readln(s);
read(s1);
for j:=1 to length(s1) do
for i:=1 to length(s) do
if s1[j]=s[i] then inc(count);
if count>=4 then Writeln('YES') else Writeln('NO');
readln;
end.

var s,s1: string;                   //переменные для предложений
i,count,j: integer;                 //переменные счетчики
begin
readln(s);                          //считываем две строки
read(s1);
for j:=1 to length(s1) do           //в цикле с параметром перебираем все символы второй строки
for i:=1 to length(s) do            //во вложенном  цикле с параметром перебираем все символы первой строки
if s1[j]=s[i] then inc(count);      //если символы стро совпадают, увеличиваем счетчик совпадений
if count>=4 then Writeln('YES') else Writeln('NO');  //если число совпадений равно или больше 4, то вывести ДА иначе НЕТ
readln;
end.