fy"> i: = length (s1);
insert (copy (s1, 1 , i) + s2 + ',', sn, 1);
delete (sn, length (sn), 1);
insert (sn, s, x);
delete (sn, 1,80);
break;
end;
insert (copy (s1, 1 , i - 1) + s2 + ',', sn, 1);
delete (s1, 1 , i)
until false;
end
else
begin
s1: = copy (s, i +1 , ji - 1);
l: = 1;
for n: = i - 2 downto 1 do
if s [n] = c2 then
begin
l: = n;
break
end;
if l = 1 then
begin
s2: = copy (s, 1, i-l);
x: = 1;
end
else
begin
s2: = copy (s, l +1 , il - 1);
x: = l +1;
end;
if l = 1 then delete (s, 1, j)
else delete (s, l +1 , jl);
repeat
i: = pos (c2, s1);
if i = 0 then
begin
i: = length (s1);
insert (s2 + copy (s1, 1 , i) + ',', sn, 1);
delete (sn, length (sn), 1);
insert (sn, s, x);
delete (sn, 1,80);
break;
end;
insert (s2 + copy (s1, 1 , i - 1) + ',', sn, 1);
delete (s1, 1 , i);
until false;
end;
dis: = s;
end;
repeat
...
