После каждого третьего знака в тексте поставить точку Паскальprogram pr1;uses crt;var

После каждого третьего символа в тексте поставить точку Паскаль

program pr1;

uses crt;

var

a: string;

i: integer;

begin

writeln ('введите строчку');

read (a);

for i:=length (a) downto 1 do

Insert('.',a,i+3);

writeln('Полученная строчка = ',a);

readln;

End.
Либо иным вероятным методом через insert