Прокомментируйте код

Program test1;
        var s:string;
            f:text;
            i:byte;
            
BEGIN
     assign(f,'slovo.dat');
     reset(f);
     while  not EoF(f) do
      begin
     readln(f,s);
     i:=1;
      while i<=length(s) do
       begin
         case s[i] of
                '1':
                 begin
                  delete(s,i,1);
                  insert('one',s,i);
                  i:=i+2;
                 end;
                '2':
                 begin
                  delete(s,i,1);
                  insert('two',s,i);
                  i:=i+2;
                 end;
                '3':
                 begin
                  delete(s,i,1);
                  insert('three',s,i);
                  i:=i+4;
                 end;
                '4':
                 begin
                  delete(s,i,1);
                  insert('four',s,i);
                  i:=i+3;
                 end;
                '5':
                  begin
                    delete(s,i,1);
                    insert('five',s,i);
                    i:=i+3;
                  end;
                '6':
                  begin
                     delete(s,i,1);
                     insert('six',s,i);
                     i:=i+2;
                  end;
                '7':
                  begin
                    delete(s,i,1);
                    insert('seven',s,i);
                    i:=i+4;
                  end;
                '8':
                  begin
                    delete(s,i,1);
                    insert('eight',s,i);
                    i:=i+4;
                  end;
                '9':
                  begin
                    delete(s,i,1);
                    insert('nine',s,i);
                    i:=i+3;
                  end;
                end;
         i:=i+1;
       end;
     writeln(s);
     end;
     close(f);
     
END.

assign(f,'slovo.dat'); //присваивает переменной имя внешнего файла
     reset(f);                        //открывает файл
     while  not EoF(f) do         //пока не достигли конца файла
      begin
     readln(f,s);                    //читаем строку (присваиваем переменной s значение строки)
     i:=1;                            //переменной присваиваем значение 1
      while i<=length(s) do     //пока не достигли конца строки
       begin
         case s[i] of              //в случае, если символ..
                '1':                  // ... равен '1'
                 begin
                  delete(s,i,1);  //удаляем символ из строки
                  insert('one',s,i);  //вставляем строку 'one'
                  i:=i+2;             // переменную увеличиваем на 2
                 end;
       .......
       .......
         i:=i+1;                  // переменную увеличиваем на 1
       end;
     writeln(s);               //выводим строку на экран
     end;
     close(f);               //закрываем файл