помогите прокоментировать код на Paskale

Question

необходимо прокоментировать каждую строчку кода:
var s,sl:string;
i,j,k,m,l:integer;
a:array [1..200] of string;

begin
write('Stroka: ');readln(s);
s:=s+' '; sl:='';
for i:=1 to length(s) do
if s<>' ' then sl:=sl+s else
if length(sl)>0 then
begin
inc(j);
a[j]:=sl;
sl:='';
end;
k:=0;
while k<=j do
begin
for i:=1 to j-1 do
begin
l:=1; m:=0;
repeat
if a[l]<>a[i+1][l] then inc(m);
if a[l]>a[i+1][l] then
begin
s:=a;
a:=a[i+1];
a[i+1]:=s;
end;
inc(l);
until (m=1) or (l>length(a));
end;
inc(k);
end;
for i:=1 to j do
write
(a,' ');
readln;
end.

Андрей Мекаев · Accepted Answer

Наймите себе репетитора (меня например) , он вам все обьяснит. 
 
Байтаков Жаслан: Местный редактор любит кушать квадратные скобки, может там индексы и указаны.

Виктория Ерохина · Answer

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

Astralbody · Answer

var s,sl:string; {объявление переменных} {строковый тип}
i,j,k,m,l:integer;{целый тип}
a:array [1..200] of string; {объявление массива а в рамках от 1 до 200 из диапазона string}

begin {начало программы}
write('Stroka: '); {вывод надписи на экран} readln(s);{считывание переменной}
s:=s+' '; sl:=''; {Присваивание значений переменным}
for i:=1 to length(s) do {цикл Для от одного до длины s}
if s<>' ' then sl:=sl+s else
if length(sl)>0 then
begin
inc(j);
a[j]:=sl;
sl:='';
end;{конец цикла}
k:=0;
while k<=j do {цикл с предусловием}
begin
for i:=1 to j-1 do
begin
l:=1; m:=0;
repeat {цикл с постусловием}
if a[l]<>a[i+1][l] then inc(m);
if a[l]>a[i+1][l] then
begin
s:=a;
a:=a[i+1];
a[i+1]:=s;
end;
inc(l);
until (m=1) or (l>length(a));
end;
inc(k);
end;
for i:=1 to j do {цикл вывода массива на экран}
write
(a,' ');
readln;
end.