4. Запишите условный оператор, который исполняет данное деянье: вывести в текстовое

1. Есть число n. 
Пускай n=123. Что будет, если разделить его на 10?
Получится 12,3. То есть 12 - целая часть, а 3 - остаток.
Далее опять разделяем на 10. 1,23.
И в заключительный раз: 0,123. Целая часть =0. На этом останавливаемся.
А сколько раз выполнили дробленье? 3. Вот и ответ.

Сейчас запишем на паскале:
Как видно из вышенаписанного, нужно продолжать выполнять деянья, пока целая часть не равна 0. То есть
while ngt;0 do
И у нас есть некий счетчик итераций, значение которого и будет являться ответом.
А тело цикла:
n div 10 (целочисленное разделенье)
inc(k) (увеличение счетчика)
=================================== ========

2-ая:
Как я сообразил, необходимо просто вывести на экран то, что обязано получиться?

Необходимо в цикле пройти по каждому символу.
Если он равен "*" (if s[i] = '*' then), ничего не делать.
По другому вывести его два раза (write(s[i],s[i])).

====================
Добавить данные в начало файла нельзя. Необходимо либо записывать в новый, или перезаписывать начальный (за ранее считав все в память)