for i:= 1 to length(st); do 
begin
if copy(st, I, 1) =',' then writeln 
else if
            copy(st, I, 1)='.' then begin
                                                    writeln;
                                                    writeln;
                                                   end
else write copy(st, I, 1);
end;