Прокомментировать код

Program z;
uses crt;
const max=100;
var s:array[1..max] of char;
    n,i,j:byte;
    c:char;
begin
randomize;
repeat
write('Размер массива до ',max,' n=');
readln(n);
until n in [1..max];
writeln('Исходный массив');
for i:=1 to n do
 begin
  s[i]:=chr(97+random(26));
  writeln(s[i]);
 end;
writeln;
for i:=2 to n do
 begin
  c:=s[i];
  j:=i-1;
  while (j>=1) and (s[j]>c) do
   begin
    s[j+1]:=s[j];
    j:=j-1;
   end;
  s[j+1]:=c;
 end;
writeln('Результат:');
for i:=1 to n do
writeln(s[i]);
end.

writeln('Исходный массив');
for i:=1 to n do
 begin
  s[i]:=chr(97+random(26));//создаем массив из случайных малых латинских букв
  write(s[i]);
 end;
writeln;
for i:=2 to n do//сортируем по взрастанию(по алфавиту)
 begin         //методом вставки
  c:=s[i];//запрминаем элеиент
  j:=i-1; //смотрим слева
  while (j>=1) and (s[j]>c) do//пока не начало массива и элемент больше
   begin
    s[j+1]:=s[j];//сдвигаем на 1 вправо
    j:=j-1;//идем влево
   end;
  s[j+1]:=c;//вставим элемент на место
 end;
writeln('Результат:');
for i:=1 to n do
write(s[i]);