Введите строку. Удвоить все буквы z

[qwerty321456]

Введите строку. Удвоить все буквы z, стоящие перед второй запятой.

program la25;
uses crt;
var ts,s:string;
    i,j,n,k:integer;
begin
clrscr;
writeln('vved text');
readln(ts);
n:=length(ts);
s:='zz';
for i:=1 to n do
 begin
  if (ts[i]=',') then k:=2;
   if k=2 then s:=ts[i]
    end;
  repeat
  insert(s[k],ts,i);
  inc(i,k);
  until
  i>length(ts);
writeln(ts);
readln;
end.

Удваивает только после последней запятой...
Как понимаю, нужно вставить цикл с запят.? Пробовал, но что-то не получилось...

[Serge_Bliznykov]

я такой вариант решения предлагаю:

program la25;
uses crt;
var ts:string;
    i,zap1, zap2 :integer;
begin
clrscr;
writeln('vved text');
{readln(ts);}
ts := 'maza faza, kukuruzza baza lozania, koza nostra zapped.';
writeLn(ts);

zap1 := -1; zap2 := -1;
for i:=1 to Length(ts) do
  if ts[i]=',' then begin
    if zap1<0 then zap1 := i
    else
      if zap2<0 then zap2 := i
      else Break; {нашли обе запятые,дальше цикл крутить смысла нет}
  end;
  
if zap2<0 then WriteLn('Net v stroke dvuh zapyatyh, znachit, i delat nechego!')
else begin
  for i:= zap2 downto zap1 do {обрабатываем символы все между первой и второй запятой}
    if ts[i]='z' then Insert('z', ts, i+1);
    
  WriteLn('rezultat: ', ts);
end;
readln;
end.