Объясните код

Program KL8;
uses crt;
var s,t:string;
i:integer;
begin
clrscr;
readln(s);
while s[1]=' ' do delete(s,1,1);
while pos('  ',s)<>0 do  delete(s,pos('  ',s),1);
while s[length(s)]=' ' do delete(s,length(s),1);
s:=s+' ';
t:='';
for i:=1 to length(s) do
if (s[i]<>' ') and (s[i]<>',')  then t:=t+s[i]
else begin
write('(',t,')',s[i]);
t:='';
readln;
end;
end.

Program KL8;
uses //раздел подключения модулей
    crt; //модуль "управления экраном"
var //раздел создания переменных
    s, t: String; //s - обрабатываемая строка; t - темповая строка
    i: integer; //счётчик
begin
    ClrScr; //очищаем экран (Clear Screen)
    ReadLn(s); //считываем строку символов
    while (s[1] = ' ') do //пока первый символ в строке - пробел
        Delete(s, 1, 1); //удаляем его
    while (Pos('  ', s) <> 0) do //пока в строке встречаются два пробела подряд
        Delete(s, Pos('  ', s), 1); //удаляем один из них (типа заменяем 2 на 1)
    while (s[Length(s)] = ' ') do //пока в конце строки пробел
        Delete(s, Length(s), 1); //удаляем его
    s := s + ' '; //добавляем один пробел в конец строки, чтобы не делать лишних проверок и не выйти за границы оной строки
    t := ''; //инициализируем переменную
    {грубо говоря - дальше вычленяем отдельные слова из строки}
    for i := 1 to Length(s) do //по всей длине строки s (каждый символ)
        if ((s[i] <> ' ') And (s[i] <> ',')) //если текущий символ не равен пробелу или запятой Not(s in [' ', ','])
        then //тогда
            t := t + s[i] //переносим в t этот символ
        else //иначе
        begin
            Write('(', t, ')', s[i]); //выводим найденное слово + тот разделитель (пробел или запятая)
            t := ''; //обнуляем переменную-слово
            ReadLn; //ждём пока пользователь что-нибудь нажмёт
        end;
end.