Продублировать символ - Free Pascal

Формулировка задачи:

Помогите, пожалуйста. Продублировать символ ! если количество символов @ равно 4.

Решение задачи: «Продублировать символ»

Листинг программы

var s:string;
    i,k:byte;
begin
writeln('Введите строку, содержащую символы @ и !');
readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]='@' then k:=k+1;
if k<>4 then write('В строке нет четырех символов @')
else
 begin
  for i:=length(s) downto 1 do
  if s[i]='!' then insert(s[i],s,i);
  write(s);
 end;
readln
end.

Объяснение кода листинга программы

Объявляются три переменные: s (строка), i (байт), k (байт).
Выводится сообщение с просьбой ввести строку, содержащую символы @ и !.
Вводится строка и сохраняется в переменной s.
Переменная k инициализируется нулем.
Происходит цикл по всем символам строки s.
Если символ равен '@', то к переменной k прибавляется единица.
Если переменная k не равна 4, то выводится сообщение «В строке нет четырех символов @».
Если переменная k равна 4, то происходит обратный цикл по всем символам строки s.
Если символ равен '!', то он вставляется в строку s в текущую позицию цикла.
Выводится строка s.
Программа ожидает ввода с клавиатуры.