for i := 1 to len do
    if (str [i] in znaki) and (str [i + 1] <> ' ') then begin
      insert (' ', str, i + 1);
      if str [i] = '.' then begin
        c := upcase (str [i + 2]);
        delete (str, i + 2, 1);
        insert (c, str, i + 2);
      end;
    end;